Why wont my search function work when i change it from all sheets to active sheet?

I want this code to execute only for the data in worksheet 'User Sheet' from A2:A1001, however, i cant get it to work. It worked when i was running it for all sheets via the application function.
Please help

Sub myfind()
Dim Message, Title, Default, SearchString
Message = "Enter your search string!" ' Set prompt.
Title = "Find Card Number On all sheets!" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)

'SearchString = "Rob"
Set S = ActiveSheet
For Each S In ActiveSheet
With S.Range("A2:A1001")
Set F = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If F Is Nothing Then
Else
Location = F.Address
S.Select
Range(Location).Select
Exit For
End If
End With
Next S

Thanks that worked!

Try this.
It worked for me and it found Rob on 3 sheets in column A

Sub MySearch()
Dim ws As Worksheet
Dim s As Object
Dim Message, Title, Default, SearchString
Message = "Enter your search string!" ' Set prompt.
Title = "Find Card Number On all sheets!" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)

'SearchString = "Rob"
For Each ws In Worksheets
With ws.Range("A2:A1001")
Set F = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If F Is Nothing Then
MsgBox ("Not Found")
Else
Location = F.Address
MsgBox Location
End If
End With
Next
End Sub

Ahhh never mind they beat me to the punch hehe

@ joshnathan

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.