Sub Test()
Dim x
x = Cells.Find("*", Cells(1), -4123, 2, 1, 2, False).Row
Debug.Print x
x = Cells.Find(What:="*", After:=Cells(1), LookIn:=-4123, LookAt:=2, SearchOrder:=1, SearchDirection:=2, MatchCase:=False).Row
Debug.Print x
x = Cells.Find(What:="*", After:=Cells(1), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
Debug.Print x
End Sub
|