Delete Rows from Selection that contain "Date"

[toddscott]

I am having luck compiling a months worth of daily spreadsheets into one monthly spreadsheet using the macros found by using search. I have also been able to remove the blank rows the macro inserted by using another macro found here.

Now I just need to remove rows that contain the word "Date" in column A. The cells that contain the word "Date" are formatted as general on the number tab. All other cells in the A column are formatted as date on the number tab (they contain dates). I would like to be able to select certain rows and then run the macro which will delete all rows in the selection that contain the text "Date". I just can't figure out the macro.

Todd

 

[circledchicken]

Hi,

Perhaps try:

Sub Try()

Dim c As Range

For Each c In Selection
    If InStr(c, "Date") <> 0 Then
        c.EntireRow.Delete
    End If
Next c

End Sub

 

[toddscott]

I tried the first code while you were editing it. This code seems to work perfect. Problem solved and I will learn from your code.

Thank you very much.

Todd

 

[circledchicken]

Hi Todd,

I'm glad it works - sorry, yes I forgot to put the '.EntireRow' bit before editing.