Robert

Could you want something like :

Option Explicit

Sub FindInAllSheets()

Dim FindValue As String
Dim oSht As Worksheet
Dim FoundCell As Range
Dim FirstAddr As String

FindValue = "al_"

For Each oSht In ActiveWorkbook.Worksheets
With oSht.Cells
Set FoundCell = .Find(What:=FindValue, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart,
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
If Not FoundCell Is Nothing Then
FirstAddr = FoundCell.Address
Do
' your code here
Set FoundCell = .FindNext(FoundCell)
Loop While Not FoundCell Is Nothing And
FoundCell.Address < FirstAddr
End If
End With
Next 'oSht

End Sub


---
Message posted from http://www.ExcelForum.com/