Hello, I have the following code in my workbook and it used to work fine
(from what I remember from working on it last week), but now I am getting an
error message that says "Unable to get the FindNext property of the Range
class" - I have a feeling it has something to do with the asterisk, but I'm
not entirely positive.  Could someone please help me out? Thank you in
advance!

Sub RunMeFirst()
   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 rngFound Is Nothing Then
       MsgBox "Not Found"
   Else
       strFirstAddress = rngFound.Address
       
       Do
           rngFound.Select
               Call ThisWorks2
'>>>This next line is where the debug points:
           Set rngFound = rngToSearch.FindNext(rngFound)
       Loop Until strFirstAddress = rngFound.Address
   End If
End With

End Sub