Help with macro

[Mldeuser]

I need some help with the macro below, I would like to have it run for sheet 1 only and I would like to be able to run it from wny sheet in the workbook

Thank you

mark





Sub DeleteRows()
Dim iRow As Long

With ActiveSheet
For iRow = .Cells(.Rows.Count, "B").End(xlUp).Row To 5 Step -1
If .Cells(iRow, "B").Value = "Mark" And _
InStr(1, .Cells(iRow, "C").Value, "Grant", vbTextCompare) And _
InStr(1, .Cells(iRow, "E").Value, "Repower", vbTextCompare) Then
.Rows(iRow).Delete
End If
Next iRow
End With
End Sub

 

[Trebor76]

Hi Mark,

When you say 'sheet 1' do you mean the name of the sheet is 'sheet 1' or you want the code to always run on the first tab (i.e furthest left tab) in the workbook as there's a big difference.

Robert

 

[Mldeuser]

I am refering the excel naming of the worksheets, I renamed sheet1 but I want the macro to reference the original name of the worksheet.

Make sense??

 

[AlphaFrog]

To reference a sheet by specific name( e.g. Sheet1), try something like...
With Sheets("Sheet1")

To reference a sheet by tab position, try something like...
With Sheets(1)

To reference a sheet's original code name (not its tab name), try something like this...
With Sheet1