Tried it.

1004 error changed to "Method 'Range' of object_'Worksheet' failed"


"JE McGimpsey" wrote:

If you're using XL97, you have to set the button's Take Focus on Click
property to False.

But you don't need to do all those selections. Try:

With Sheets("SOAUDITSO").Range("2:2")
Range(.Cells, .Cells.End(xlDown)).Delete
End With

Using the Range objects directly makes your code smaller, faster and,
IMO, easier to maintain.


In article ,
Matt J wrote:

I have the following code in a Macro for deleting a range of cells and it
works fine but when I use it in a click event for a command button I receive
the error.

Sheets("SOAUDITSO").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

I know it is something simple. I am new to VBA so please excuse my
ignorance.