View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Thomlinson Jim Thomlinson is offline
external usenet poster
 
Posts: 5,939
Default error 424 runtime

Without looking to close the first thing I notice is you declare LastRow to
be a range object but then try to assign a row number to it... Try this...

Sub deleteR1R3()
Dim LastRow As Long
With ActiveSheet
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
If (LastRow = 1) And IsEmpty(Range("A1")) Then
Cells(3, "A").EntireRow.Delete
Cells(1, "A").EntireRow.Delete
End If
End With
End Sub
--
HTH...

Jim Thomlinson


"Janis" wrote:

I got an error trying to run this script I want to delete the first and 3rd
row to make a flat file database sheet.
tia,


Sub deleteR1R3()
Dim LastRow As Range
With ActiveSheet
Set LastRow = Cells(Rows.Count, "A").End(xlUp).Row
If (LastRow = 1) And IsEmpty(Range("A1")) Then
Cells(3, "A").EntireRow.Delete
Cells(1, "A").EntireRow.Delete
End If
End With
End Sub