Help with a macro

[patch]

I want to perform a simple task, within a macro.

I created a macro, that searches columns, for specific information. When that information is found, I want the entire row deleted.

For example. My macro prompts the user to enter the data to search for. It then finds the data and then asks if they want that row deleted. How can I make the macro select the current row, that it found the data in.

Thanks...in advance.
Patch

 

[Dave Hawley]

Hi Patch

How about:

Dim Rfound As Range
Dim strFind As String

On Error Resume Next

Set Rfound = Columns("B:B").Find(What:=strFind, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).EntireRow
        
If Not Rfound Is Nothing Then
  Rfound.Select
Else
  MsgBox "No Match"
End If

On Error GoTo 0