How can I get this to look in hidden rows? This only works if I filterer my table every time. I was expecting "LookIn:=xlFormulas" to do the trick, but it doesn't.
Sub MarkCompleted1()
Application.ScreenUpdating = False
Range("Table1[[#Headers],[SO'#]]").Select
If Range("C:C").Find(What:=Range("S1").Value, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False) _
Is Nothing Then
ActiveSheet.Range("S1").Select
MsgBox "Sales Order # " & Range("S1") & " Not Found", _
vbInformation, "Information"
Else:
Range("C:C").Find(What:=Range("S1").Value, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False).Activate
MarkCompleted2
End If
End Sub