Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
run-time error '1004': Application-defined or object-deifined error
I am getting this error with the following Macro any help would be
appreciated. Sub Process_Service_Fees() Dim RangeDepth As String Dim RangeDepth2 As String RangeDepth = Worksheets("Sheet1").Range("F3").Value For Each MyObject In Worksheets("Sheet1").Range("A1:A" & RangeDepth) ' Iterate through each element. If MyObject.Value = "" Then ' If Cell is empty Rows(MyObject.Row & ":" & MyObject.Row).Select 'Delete the row Selection.Delete Shift:=xlUp 'Shift next line up one End If Next RangeDepth2 = CInt((Worksheets("Sheet1").Range("F2").Value) / 1.5) For Each MyObject In Worksheets("Sheet1").Range("A1:A" & RangeDepth2) ' Iterate through each element. If MyObject.Value = "" Then ' If Cell is empty Rows(MyObject.Row & ":" & MyObject.Row).Select 'Delete the row Selection.Delete Shift:=xlUp 'Shift next line up one End If Next Columns("F:F").Select 'Delete empty columns. Selection.Delete Shift:=xlToLeft ' These three columns are always empty 'Columns("J:J").Select ' and do not change, unless file layout ' Selection.Delete Shift:=xlToLeft ' changes. 'Columns("L:L").Select ' Selection.Delete Shift:=xlToLeft End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error 1004 Application Defined or Object Defined Error | Excel Programming | |||
Macro Run-time Error 1004 Application Defined or Object Defined Error | Excel Programming | |||
"Run Time Error 1004 Application Defined or Object Defined Error." | Excel Programming | |||
Runtime Error 1004 -- Application Defined or Object Defined Error | Excel Programming |