Hi
I want to delete the same row of cells on three different sheets if a cell on that row in the first sheet is empty.
Here is what I have upto now
Dim Row As Long, Mpty As Long, Score As Long
Row = 3
Mpty = 3
Score = 0
Do
If Range("P" & Mpty) >= 1 Then
With ActiveSheet
Rows("Row:Row").Select
Selection.Delete shift:=xlUp
Sheets("Sheet1 (2)").Select
Rows("Row:Row").Select
Selection.Delete shift:=xlUp
Sheets("Sheet1 (3)").Select
Rows("Row:Row").Select
Selection.Delete shift:=xlUp
End With
End If
Row = Row + 1
Mpty = Mpty + 1
Score = Score + 1
Loop Until Score = 40
The problem is on the
Rows("Row:Row").Select
line but I just dont know how to rectify.
Any help
Neill
I want to delete the same row of cells on three different sheets if a cell on that row in the first sheet is empty.
Here is what I have upto now
Dim Row As Long, Mpty As Long, Score As Long
Row = 3
Mpty = 3
Score = 0
Do
If Range("P" & Mpty) >= 1 Then
With ActiveSheet
Rows("Row:Row").Select
Selection.Delete shift:=xlUp
Sheets("Sheet1 (2)").Select
Rows("Row:Row").Select
Selection.Delete shift:=xlUp
Sheets("Sheet1 (3)").Select
Rows("Row:Row").Select
Selection.Delete shift:=xlUp
End With
End If
Row = Row + 1
Mpty = Mpty + 1
Score = Score + 1
Loop Until Score = 40
The problem is on the
Rows("Row:Row").Select
line but I just dont know how to rectify.
Any help
Neill