I have a delete row routine which works. Its the First Macro below. I am
trying to make it more modular by making the delete routine a sub that is
called. This is called Second macro below. However its not working. Not
sure if its the way I have dimenionsed my variable A in the second macro or
if its the way I am passing it to the sub.

First Macro
Sub MemoryManager()
Dim UsedRows As Double
Dim LastRow As Double
Dim RowCounter As Double

UsedRows = 5
LastRow = 20

Range(Range("FirstCell").Offset(UsedRows, 0),
Range("FirstCell").Offset(LastRow, 0)).EntireRow.Clear

End Sub

Second Macro
Sub MemoryManager()
Dim UsedRows As Double
Dim LastRow As Double
Dim RowCounter As Double
Dim A As Object

UsedRows = 5
LastRow = 20

Set A = Range("FirstCell")

Call DeleteUnusedRows(A, UsedRows, LastRow)

End Sub

Sub DeleteUnusedRows(X As Range, Y As Double, Z As Double)

Range(Range(X).Offset(Y, 0), Range(X).Offset(Z, 0)).EntireRow.Delete

End Sub

Thanks

EM

Second Macro
Sub MemoryManager()
Dim UsedRows As Double
Dim LastRow As Double
Dim RowCounter As Double
Dim A As Range '<==

UsedRows = 5
LastRow = 20

Set A = Range("FirstCell")

Call DeleteUnusedRows(A, UsedRows, LastRow)

End Sub

Sub DeleteUnusedRows(X As Range, Y As Double, Z As Double)

x.parent.Range(X.Offset(Y, 0), X.Offset(Z, 0)).EntireRow.Delete '<==

End Sub

--
Regards,
Tom Ogilvy

"ExcelMonkey" wrote:

> I have a delete row routine which works. Its the First Macro below. I am
> trying to make it more modular by making the delete routine a sub that is
> called. This is called Second macro below. However its not working. Not
> sure if its the way I have dimenionsed my variable A in the second macro or
> if its the way I am passing it to the sub.
>
> First Macro
> Sub MemoryManager()
> Dim UsedRows As Double
> Dim LastRow As Double
> Dim RowCounter As Double
>
> UsedRows = 5
> LastRow = 20
>
> Range(Range("FirstCell").Offset(UsedRows, 0),
> Range("FirstCell").Offset(LastRow, 0)).EntireRow.Clear
>
> End Sub
>
> Second Macro
> Sub MemoryManager()
> Dim UsedRows As Double
> Dim LastRow As Double
> Dim RowCounter As Double
> Dim A As Object
>
> UsedRows = 5
> LastRow = 20
>
> Set A = Range("FirstCell")
>
> Call DeleteUnusedRows(A, UsedRows, LastRow)
>
> End Sub
>
> Sub DeleteUnusedRows(X As Range, Y As Double, Z As Double)
>
> Range(Range(X).Offset(Y, 0), Range(X).Offset(Z, 0)).EntireRow.Delete
>
> End Sub
>
> Thanks
>
> EM