this delete entire rownumber typed in A1

Sub test()
Rows(Cells(1, 1)).EntireRow.Delete
End Sub


"dim" skrev:

Hi folks, this is knda like a follow on to a previous question that Pete UK
helped a bit with.

I have recorded the following macro but I need to change it since it doesn't
exactly do what I want:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 08/12/2007
'

'
Rows("7:7").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

I need to change it so that the user can specify which row number to delete
by entering a value in a cell:

Row (Value in cell A1) Select
Selection.Delete Shift: ....etc etc

How do I write the code to specify that instead of it saying to delete a
specific row such as the ("7:7"), it will delete the row according to the
number in a cell?

Thanks.