VBA - Select Row based on Cell Value - Runtime Error

[Eean]

What I want is for the value of the active cell to determine the number of rows deleted - and then delete all duplicates.

Here's my code:

Sub test()
'
' test Macro
'
'
Dim iRemove As Integer
iRemove = ActiveCell.Value - "1"
ActiveCell.Offset(1, 0).Rows("1:iRemove").EntireRow.Select
Selection.Delete
    
End Sub

I'm getting a Runtime error 13 - Type mismatch

Can anyone help?

 

[VoG]

Maybe

Sub test()
'
' test Macro
'
'
Dim iRemove As Integer
iRemove = ActiveCell.Value - 1
ActiveCell.Offset(1, 0).Rows("1:" & iRemove).EntireRow.Delete
    
End Sub

 

[Eean]

That did it! Thanks a lot - Seems really simple now.