If Not Intersect(Range(YourFoundRangeHere), Range(RangeToLookInHere)) Is Nothing Then
' Application.Cursor = xlDefault
Application.Cursor = xlNorthwestArrow
' Application.Cursor = xlIBeam
' Application.Cursor = xlWait
Else
Application.Cursor = xlDefault
End if