Find method

[abrar]

Hello...

i have written this as a piece of test code to find all the blanks in a worksheet... im well aware i can just loop through to find everything however... i want to use the find method...

Sub meh()
    Dim R As Range, FindAddress As String
    Sheets("REQUEST").Select
    With ActiveSheet.Range("D34:D2004")
        Set R = .Find("")
        If Not R Is Nothing Then
 
            FindAddress = R.Address
            
            Do
                 Set R = .FindNext(R)
                 findagain = R.row
                 MsgBox findagain
                 
            Loop While Not R Is Nothing And R.Address <> FindAddress
        End If
    End With
 
     'Clear memory
    Set R = Nothing
 
End Sub

nopw how di make this code return all the rows that ARE NOT blank.... thanks!

[BrianB]

Try changing the line :-

Set R = .Find("*")