I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting the ws in the statement

Set ws = ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()


'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind



' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I14 Color24

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I14")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 24
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I15")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I16 Color4

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I16")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 4
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I17 Color55

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I17")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 55
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I18 Color46

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I18")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 46
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I19")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I20 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I20")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I21 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I21")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I22 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I22")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I23 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I23")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I24 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I24")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I25 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I25")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I26 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I26")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I27 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I27")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I29 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I28")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I29 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I29")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I30 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I30")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I31 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I31")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind




End Sub

sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.


"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting the ws in the statement

Set ws = ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()


'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind



' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I14 Color24

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I14")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 24
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I15")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I16 Color4

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I16")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 4
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I17 Color55

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I17")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next

Problem duplicates on multiple PC's. I also fully uninstalled, then
reinstalled Office 2007 std on this machine and tested before allowing
any updates. Same result.



On Oct 27, 12:19*pm, Patrick Molloy
wrote:
sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES *from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.



"Rick" wrote:
I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. *I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting the ws in the statement

*Set ws = ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()

* * * * * * * * * * 'I8 *Color19

* * 'Get search values from worksheet range.
* * Dim MyFind As Variant
* * Dim MyNewValue As Variant
* * Dim FoundCell As Object
* * Dim Counter As Long
* * Dim searchList As Range
* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I8")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 19
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * ' * * * * * I9 *Color49
* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I9")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 49
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I10 *Color22

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I10")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 22
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I11 *Color7

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I11")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 7
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I12 *Color3

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I12")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 3
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I13 *Color5

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I13")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 5
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I14 *Color24

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I14")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 24
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I15 *Color6

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I15")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 6
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp =

...

read more »- Hide quoted text -

- Show quoted text -

I not see a dim line for ws

For the OP

Add this line

Dim ws As Worksheet




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Patrick Molloy" wrote in message
...
sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.


"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting the ws in the statement

Set ws = ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()


'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind



' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I14 Color24

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I14")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 24
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I15")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 6
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I16 Color4

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I16")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 4
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I17 Color55

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I17")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next

Thank you.
That moved me along a little.
Now the debugger stops at
FirstAddress = FoundCell.Address
with "FirstAddress" highlighted.
Maybe I need a Dim staement for that as well?


On Oct 27, 4:22*pm, "Ron de Bruin" wrote:
I not see a dim line for ws

For the OP

Add *this line

Dim ws As Worksheet

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Patrick Molloy" wrote in message

...



sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES *from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.

"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. *I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting the ws in the statement

*Set ws = ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()

* * * * * * * * * * 'I8 *Color19

* * 'Get search values from worksheet range.
* * Dim MyFind As Variant
* * Dim MyNewValue As Variant
* * Dim FoundCell As Object
* * Dim Counter As Long
* * Dim searchList As Range
* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I8")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 19
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * ' * * * * * I9 *Color49
* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I9")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 49
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I10 *Color22

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I10")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 22
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I11 *Color7

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I11")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 7
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I12 *Color3

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I12")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 3
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I13 *Color5

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I13")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 5
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I14 *Color24

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I14")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not FoundCell Is Nothing Then
* * * * FirstAddress = FoundCell.Address
* * * * Do
* * * * * * Counter = Counter + 1
* * * * * * '--------------------------------------------
* * * * * * '- what to do if found
* * * * * * FoundCell.Interior.ColorIndex = 24
* * * * * * '--------------------------------------------
* * * * * * Set FoundCell = ws.Cells.FindNext(FoundCell)
* * * * Loop While Not FoundCell Is Nothing _
* * * * * * And FoundCell.Address < FirstAddress
* * End If
* * rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)
* * Next 'MyFind

* * 'I15 *Color6

* * '-------------------------------------------------
* * '- SET SEARCH KEY
* * '===== Change Range in next statement as needed =======
* * Set searchList = Worksheets("Instructions").Range("I15")
* * For Each MyFind In searchList
* * Counter = 0
* * '------------------------------------------------
* * '- FIND ALL MATCHING CELLS
* * On Error Resume Next
* * Set ws = ActiveSheet
* * Set FoundCell = ws.Cells.Find(what:=MyFind)
* * If Not

...

read more »- Hide quoted text -

- Show quoted text -

Yes you must Dim them all

Dim FirstAddress As String




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Rick" wrote in message ...
Thank you.
That moved me along a little.
Now the debugger stops at
FirstAddress = FoundCell.Address
with "FirstAddress" highlighted.
Maybe I need a Dim staement for that as well?


On Oct 27, 4:22 pm, "Ron de Bruin" wrote:
I not see a dim line for ws

For the OP

Add this line

Dim ws As Worksheet

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Patrick Molloy" wrote in message

...



sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.

"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting the ws in the statement

Set ws = ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()

'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I14 Color24

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I14")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 24
'--------------------------------------------
Set FoundCell = ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I15")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Set ws = ActiveSheet
Set FoundCell = ws.Cells.Find(what:=MyFind)
If Not

...

read more »- Hide quoted text -

- Show quoted text -

And yet another....
In the statement
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)

It highlights the first "Chr"

I must apologize for my ignorance here. I didn't write the
macro....Do I need to Dim Chr as well? as a string?

I am still kind of reeling from what happened to the macro as it
worked fine for 2 years.

Anyway...thanks for the ongoing assistantance.

rick

On Oct 27, 4:50*pm, "Ron de Bruin" wrote:
Yes you must Dim them all

Dim FirstAddress As String

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Rick" wrote in ...

Thank you.
That moved me along a little.
Now the debugger stops at
FirstAddress = FoundCell.Address
with "FirstAddress" highlighted.
Maybe I need a Dim staement for that as well?

On Oct 27, 4:22 pm, "Ron de Bruin" wrote:



I not see a dim line forws

For the OP

Add this line

DimwsAs Worksheet

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Patrick Molloy" wrote in message

...

sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.

"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting thewsin the statement

Setws=ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()

'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I14 Color24

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I14")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 24
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I15")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not

...

read more »- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Nope.

Chr() is a VBA function.

It sounds like you may have a missing reference.

Open the excel and your workbook
Open the VBE and select your workbook's project.
Then click on: Tools|References
Look for MISSING reference.

Uncheck that missing reference.

The missing reference may not (usually doesn't) have anything to do with the
line that caused the error.

If you're not using that reference, you can go back to your pc and remove it and
then redistribute the workbook.

If you're using that reference, you'll have more work to do for the troublesome
pc's.

Rick wrote:

And yet another....
In the statement
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)

It highlights the first "Chr"

I must apologize for my ignorance here. I didn't write the
macro....Do I need to Dim Chr as well? as a string?

I am still kind of reeling from what happened to the macro as it
worked fine for 2 years.

Anyway...thanks for the ongoing assistantance.

rick

On Oct 27, 4:50 pm, "Ron de Bruin" wrote:
Yes you must Dim them all

Dim FirstAddress As String

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Rick" wrote in ...

Thank you.
That moved me along a little.
Now the debugger stops at
FirstAddress = FoundCell.Address
with "FirstAddress" highlighted.
Maybe I need a Dim staement for that as well?

On Oct 27, 4:22 pm, "Ron de Bruin" wrote:



I not see a dim line forws

For the OP

Add this line

DimwsAs Worksheet

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Patrick Molloy" wrote in message

...

sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.

"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting thewsin the statement

Setws=ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()

'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I14 Color24

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I14")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 24
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I15 Color6

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I15")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not

...

read more »- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

--

Dave Peterson

OUTSTANDING!!!
Thank you.

The missing reference was to a worksheet page I used at one time to
interface with a TOPAZ sigpad.
At first it would not let me uncheck the reference....It said it was
in use.
Deleted the signature worksheet, saved....reopened....then it allowed
me to uncheck the reference.
Can't say why it broke but....fixed now!


Thanks to all who helped me work through this...

rick




On Oct 29, 7:32*am, Dave Peterson wrote:
Nope.

Chr() is a VBA function. *

It sounds like you may have a missing reference.

Open the excel and your workbook
Open the VBE and select your workbook's project.
Then click on: *Tools|References
Look for MISSING reference.

Uncheck that missing reference. *

The missing reference may not (usually doesn't) have anything to do with the
line that caused the error.

If you're not using that reference, you can go back to your pc and remove it and
then redistribute the workbook.

If you're using that reference, you'll have more work to do for the troublesome
pc's.



Rick wrote:

And yet another....
In the statement
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
* * * * * * * * "Found: " & Counter)

It highlights the first "Chr"

I must apologize for my ignorance here. *I didn't write the
macro....Do I need to Dim Chr as well? *as a string?

I am still kind of reeling from what happened to the macro as it
worked fine for 2 years.

Anyway...thanks for the ongoing assistantance.

rick

On Oct 27, 4:50 pm, "Ron de Bruin" wrote:
Yes you must Dim them all

Dim FirstAddress As String

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Rick" wrote in ...

Thank you.
That moved me along a little.
Now the debugger stops at
FirstAddress = FoundCell.Address
with "FirstAddress" highlighted.
Maybe I need a Dim staement for that as well?

On Oct 27, 4:22 pm, "Ron de Bruin" wrote:

I not see a dim line forws

For the OP

Add this line

DimwsAs Worksheet

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Patrick Molloy" wrote in message

...

sometimes errors liek this are misleading as they result from a completely
different, though non-the-less very serious problem.

Open TOOLS / REFERENCES from the VBA editor menu and check to see if any
DLLs appear as MISSING
This could happen with an install/update

if any are, you'll need to browse to them, or, worst case, fix your excel
installation.

"Rick" wrote:

I have a macro that searches a worksheet for certain text then fills
the cell with a specified color. I had help from this newsgroup a few
years back to write it and it has worked perfectly since then...until
yesterday.

When I run the macro I get an error and it drops me into a debugger
hightlighting thewsin the statement

Setws=ActiveSheet

The error says "Compile error: Can't find project or Library"

Is it possible that this is related to a patch that got applied?

Any help would be appreciated.

Here is the full Macro

Sub FindHiLight_V2()

'I8 Color19

'Get search values from worksheet range.
Dim MyFind As Variant
Dim MyNewValue As Variant
Dim FoundCell As Object
Dim Counter As Long
Dim searchList As Range
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I8")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 19
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

' I9 Color49
'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I9")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 49
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I10 Color22

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I10")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 22
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I11 Color7

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I11")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 7
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I12 Color3

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I12")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 3
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)
Next 'MyFind

'I13 Color5

'-------------------------------------------------
'- SET SEARCH KEY
'===== Change Range in next statement as needed =======
Set searchList = Worksheets("Instructions").Range("I13")
For Each MyFind In searchList
Counter = 0
'------------------------------------------------
'- FIND ALL MATCHING CELLS
On Error Resume Next
Setws=ActiveSheet
Set FoundCell =ws.Cells.Find(what:=MyFind)
If Not FoundCell Is Nothing Then
FirstAddress = FoundCell.Address
Do
Counter = Counter + 1
'--------------------------------------------
'- what to do if found
FoundCell.Interior.ColorIndex = 5
'--------------------------------------------
Set FoundCell =ws.Cells.FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address < FirstAddress
End If
rsp = MsgBox("Searched For: " & MyFind & Chr(13) & Chr(13) & _
"Found: " & Counter)

...

read more »- Hide quoted text -

- Show quoted text -