You seem to introduce cell from nowhere. The For Next loop uses MyObject,
then you test cell which has not been assigned.

Use Option Explicit, you will never regret it

--
HTH

Bob Phillips

wrote in message
ups.com...
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