Macro Eliminazione righe

[Sav90]

Devo creare una macro in Excel che mi cancelli una riga si e una no,ma nell'area selezionata in precedenza

io ho questa

Sub eliminariganext()
For i = 100 To 1 Step -2
Selection.Rows(i).EntireRow.Delete
Next i
End Sub

ma,va a cancellare tutte le righe una si e una no fino alla centesima dal punto di selezione,io invece voglio che finita l'area di selezione non cancelli più niente

Grazie

[morocarlo]

i vale 100, quindi è normale che cancelli fino alla centesima riga... devi trovare il modo di fare una cosa dinamica... guarda se esiste qualcosa che ti restituisca il numero di celle selezionate

[gibra]

Devi usare l'oggetto Range per farti restituire le righe selezionate, poi il ciclo lo modifichi in conseguenza delle tue esigenze.