Hi!

I'm working with a pretty big set of info. There are 3 columns and I
want to go through from top to bottom and entirely remove any rows
where the A column's value is not divisable by 15.

Here is the code I've tried to work with:

For I = 9 To 22919
If Me.Cells(I, 1) Mod 15 < 0 Then
Me.Rows(I).Delete
End If
Next


I want check the values in ("A1:A22919")

When I run that code it just deletes every other row. And I'm not
quite sure what is wrong--I know a little about Visual Basic itself,
but I'm unfamiliar using it with Excel :\

I got this together by browsing through Google groups and search, but I
couldn't put it together from different parts and fooling around with
it for a few hours hasn't helped much either ;_;