Hi Mark,

You could put in a 'memo' variable & IF statement, something like
this,

With ActiveSheet.Range("K1:K5000")
Set rngPO = .Find(strPO, After:=Cells(1,11),LookIn:=xlValues)
While Not (IsEmpty(rngPO))
rngPO.Select
Code to process each occurrence

                       Set rngPO = .FindNext(rngPO)

                   Wend
               End With

rngPO1 = RngPO

IF rng

You need to accumulate the cells as you Find them:

Before the While, insert:

Dim accumulator As Range
Set accumulator = Nothing

After the While, insert:

If accumulator Is Nothing Then
   Set accumulator = rngPO
Else
   Set accumulator = Union(accumulator, rngPO)
End If

I have used cdo---loop instead of while---wend
try tis mdoified macro
Sub test()
Dim rngpo As Range
Dim strpo As String
Dim add As String
strpo = "a" ' this is only an example
  With ActiveSheet.Range("K1:K5000")
                   Set rngpo = .Find(strpo, After:=Cells(1, 11), _
LookIn:=xlValues, lookat:=xlWhole)
add = rngpo.Address
                       rngpo.Select

                            'Code to process each occurrence
                Do

                       Set rngpo = .FindNext(rngpo)
               If rngpo.Address = add Then GoTo line1
                 rngpo.Select
              Loop While Not (IsEmpty(rngpo)) And rngpo.Address <>
add
line1:
               End With
End Sub

=================================================

Option Explicit
Sub testme()

   Dim RngToSearch As Range
   Dim FirstAddress As String
   Dim StrPO As String
   Dim RngPO As Range
   
   Set RngToSearch = ActiveSheet.Range("K1:k5000") '(not K:K???)
   
   StrPO = "something"
   
   With RngToSearch
      'xlwhole or xlpart????
      'it's better to explicitly use all the parms.
      'otherwise you inherit the settings from the last Find
      'either from the user or code!
      Set RngPO = .Cells.Find(what:=StrPO, _
                       after:=.Cells(.Cells.Count), _
                       LookIn:=xlValues, _
                       lookat:=xlWhole, _
                       SearchOrder:=xlByRows, _
                       SearchDirection:=xlNext, _
                       MatchCase:=False, _
                       MatchByte:=False)
                       
       If RngPO Is Nothing Then
           MsgBox "not found!"
       Else
           FirstAddress = RngPO.Address
           Do
           
               'code to process each occurrence
               'it's not usually necessary to select this range
   
               'look for more
               Set RngPO = .FindNext(after:=RngPO)
               
               If RngPO Is Nothing Then
                   Exit Do
               End If
                   
               If RngPO.Address = FirstAddress Then
                   Exit Do
               End If
           Loop
       End If
   End With

End Sub