Nate,

Your question isn't clear so I've asssumed you want to filter to show odd rows

Sub sonic()
Dim myrange, copyrange As Range
Lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & Lastrow)
For Each c In myrange
If Mid(c.Value, 2, Len(c.Value)) Mod 2 = 0 Then
c.EntireRow.Hidden = True
End If
Next
End Sub

Mike

"NateBuckley" wrote:

I have a list of data that follows like so:

A01
A02
A03
A04
A05
A06
A07
A08

I wish to Display only the Odd ones, so A01, A03, A05, A07 and so on, I know
the formula to do this but have no idea how to do it in VBA with code.

I'm guessing it's something to do with the % operator?

Thanks for any help