findnext error in loop


S

SLW612

Hi everyone,
First of all thanks to everyone who has helped me so far.

I have one little quirk in my code and I'm not sure how to fix it. The
following code works fine if there is more than one instance of "Account
Category:*" found in col. K:T, but if there is only one instance found, I get
the error message "Run-time error '91': Object variable or With block
variable not set."

Help! Thank you!


Dim rngFound As Range
Dim rngToSearch As Range
Dim strFirstAddress As String
Dim wks As Worksheet

Set wks = ActiveSheet

With wks

Set rngToSearch = Sheets("Sheet1").Columns("K:T")
Set rngFound = rngToSearch.Find(What:="Account Category:*", _
LookAt:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False)
If Not rngFound Is Nothing Then
strFirstAddress = rngFound.Address

Do
rngFound.Select
Call ThisWorks2 '<-this macro only formats the cell
Set rngFound = rngToSearch.FindNext(rngFound)
Loop Until rngFound Is Nothing Or strFirstAddress = rngFound.Address
Else
End If
End With
 
Ad

Advertisements

S

SLW612

Never mind, I just found it through some more searching in the forums:
Just added "if rngfound is nothing then exit do" right before the loop
command.
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top