Nevermind I fig'd where I messed up...

Do While ActiveCell.Row < 7

Should have been

Do While ActiveCell.Row 7

"Rob" wrote:

Help. I can't seem to get this to work.

Sub Macro1()
Do While ActiveCell.Row < 7
Range("A" & ActiveCell.Row - 10).Select
Selection.ClearContents
Loop
End Sub

What did I do wrong?

Thanks
Rob