How to Delete Rows in Excel In a Do Loop
hello
i need some help with deleting Rows in excel using a do loop
my program looks like this
Sub Cleanup()
Dim r1 As Range
Dim r2 As Range
Set r1 = Cells(6, 2)
Set r2 = ActiveSheet.Rows("46:52")
Do While r1.Value < ""
r2.Select
'Selection.Delete Shift:=xlUp
r2.Font.Bold = True
Set r1 = r1.Offset(47, 0)
Set r2 = r2.Offset(47, 0)
Loop
End Sub
The problem i am having is when i make the things i want to delete bold
they do become bold but when i want to delete those rows it does for
the first row and then stops and says "OBJECT REQUIRED" i known i make
making a mistake in the code somewhere but not getting where
thank you in advance for your help/advice
Regards
Indraneel
|