About Us

Janis

Thanks, you are right. I see it now.

"Jim Thomlinson" wrote:

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

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
runtime error '1004' application or object defined error	Janis	Excel Programming	4	November 18th 09 03:01 PM
xpath error? Runtime Error 13 type mismatch	SteveM	Excel Discussion (Misc queries)	1	December 4th 07 09:16 AM
runtime error: syntax error or access violation	oucsester[_2_]	Excel Programming	1	May 3rd 06 05:51 PM
Excel 2003 Macro Error - Runtime error 1004	Cow	Excel Discussion (Misc queries)	2	June 7th 05 01:40 PM
Syntax Error Runtime Error '424' Object Required	sjenks183	Excel Programming	1	January 23rd 04 09:25 AM

Menu

About Us