PS:
Here's my code:
Sub Search()
Dim Symbol As Symbol, ws As Worksheet, Found As Range, c As Range
Search:
Symbol = InputBox("Please enter the date you wish to update." & vbCrLf & vbCrLf & "IMPORTANT: Enter date as m/d/yyyy")
On Error GoTo Error
For Each ws In Worksheets
If ws.Name <> "Summary" Then
Set Found = ws.Columns("A").Cells.Find(What:=Symbol, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not Found Is Nothing Then
Application.Goto Reference:=Found
Exit Sub
End If
End If
Next ws
Error:
Msg = "Either the date you entered is not a trading day or "
Msg = Msg & "you entered the date in the wrong format. " & vbNewLine & vbNewLine
Msg = Msg & "Please enter all dates as: mm/dd/yyyy and be sure you have the correct date!"
MsgBox Msg, vbCritical, "UnKnown Date"
End Sub