Searching for a word

[KORKIS2]

I search down column A for the phrase " Second Unit". Then I have a pop up box that displays the row in which the search has returned. For some reason this is all the sudden now working. I can't figure out why?
With this error...

1004
Application defined or object defined error.

Set Found = Columns("A").Find(What:="Second Unit", After:=[A1], LookIn:=xlFormulas, _LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:=False, SearchFormat:=False)If Found Is Nothing ThensMessage = "No Match Found for ""Second Unit""" & vbCrElsesMessage = """Second Unit"" found in cell " & Found.Address & " Row: " & Found.Row & vbCru = Found.Row End If  MsgBox "Current value is " & u

 

[sijpie]

Is this all on one line in your macro, or is it just how it came out here? Can you post it again please?