problem with Find next matching cell (1 Viewer)

Sub eachtab()
'searches each tab for a match
Dim word As String ' whats in sheet1 col A to find
Dim col As String
Dim counter1 As String
counter1 = 1
col = "a"
both = col + counter1
Range(both).Select
word = Sheet1.Range(both) ' the string to find
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 
Dim searchText As String
searchText = word
 
Dim r As Range
Dim findNext As Integer
findNext = vbYes
'The firstFind and looped vars are used to determine if we've looped thru every find on this page.
Dim firstFoundCell As String
firstFoundCell = ""
Dim looped As Boolean
looped = False
 
Do While findNext = vbYes And Not looped
' Here's the search!
Set r = Cells.find(searchText, ActiveCell, xlValues, xlPart, xlByRows, xlNext, False)
If r Is Nothing Then
' Nothing was found. Exit this WHILE loop (the FOR loop will still go to the next sheet).
Exit Do
Else
r.Activate
' Check/Set the firstFoundCell and the looped variable.
If firstFoundCell = "" Then
firstFoundCell = r.Address
Else
' We've found at least one cell already. Check to see if we've looped back to the firstFoundCell.
If r.Address = firstFoundCell Then
looped = True
Else
End If
End If ' end of checking for firstFoundCell
' If we haven't looped around, prompt the user to findNext. (If we have looped, the WHILE loop will finish, causing the FOR loop to go to the next sheet.)
If Not looped Then
'would insert hypa link here?
'findNext = MsgBox("Find Next?", vbYesNo)
MsgBox ("insert hypalink")
End If
End If
Loop ' end of Do While loop
If findNext = vbYes Then
Exit Sub 'MsgBox ("No more matches found!")
End If
 
End Sub

Sub eachtab()
'searches each tab for a match
Dim word As String ' whats in sheet1 col A to find
Dim col As String
Dim counter1 As String
counter1 = 1
col = "a"
both = col + counter1
Range(both).Select
word = Sheet1.Range(both) ' the string to find
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''


Dim searchText As String
searchText = word

Dim r As Range
Dim findNext As Integer
findNext = vbYes
'The firstFind and looped vars are used to determine if we've looped thru every find on this page.
Dim firstFoundCell As String
firstFoundCell = ""
Dim looped As Boolean
looped = False

Do While findNext = vbYes And Not looped
' Here's the search!
Set r = Cells.find(searchText, ActiveCell, xlValues, xlPart, xlByRows, xlNext, False)
If r Is Nothing Then
' Nothing was found. Exit this WHILE loop (the FOR loop will still go to the next sheet).
Exit Do
Else
r.Activate
' Check/Set the firstFoundCell and the looped variable.
If firstFoundCell = "" Then
firstFoundCell = r.Address
Else
' We've found at least one cell already. Check to see if we've looped back to the firstFoundCell.
If r.Address = firstFoundCell Then
looped = True
Else
End If
End If ' end of checking for firstFoundCell
' If we haven't looped around, prompt the user to findNext. (If we have looped, the WHILE loop will finish, causing the FOR loop to go to the next sheet.)
If Not looped Then
'would insert hypa link here?
'findNext = MsgBox("Find Next?", vbYesNo)
MsgBox ("insert hypalink")
End If
End If
Loop ' end of Do While loop
If findNext = vbYes Then
Exit Sub 'MsgBox ("No more matches found!")
End If

End Sub

[code]

 at the very end should have a / between the [ and the c in code.

like this (read the post as shown and follow its instructions):
[img]http://downloads.btabdevelopment.com/screenshots/codetag01.png[/img]

Also, I am not good at remembering to indent so I use Smart Indenter (FREE) from here:
http://www.oaltd.co.uk/Indenter/Default.htm