Specifying a row to delete???

[dim]

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.

 

[excelent]

this delete entire rownumber typed in A1

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


"dim" skrev:

 

[Bob Phillips]

Too much code

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

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[dim]

Thanks folks, that worked a charm.

I edited it firstly to delete the row depending on the value from another
sheet in the same workbook, and I have that working ok.

But now I've been trying to get it to take the row number value from a
different workbook. I've tried different combinations but keep getting either
object or syntax errors. Here's my most recent effort of converting it to
take the other workbooks value:

Sub test()
Rows("Book3.xls".Sheet1.Cells(1, 1).Value).Delete
End Sub

The code is obviously located in a module for Book 2 (Not book 3) which has
the rows I want to delete and Book 3 is open while running the code.

I prefer to figure things out myself through trial and error, and have tried
editing this code a variety of ways, but I'm just missing something and can't
put my finger on it! Can you give me some guidance on where I'm now going
wrong with this?

Thanks.

 

[dim]

Bump.