Excel - macro para seleccionar celdas impares de una colum

Hola expertos:

Podrian ayudarme y decirme por favor como podria crear una macro para seleccionar todas las celdas impares de la columna A ( A1,A3,A5,A7 ...... ultima celda), les agradesco de antemano y salu2. Jose

Sub SelecCeldasImpares()
contador = 0
fila = 1
Do While Cells(fila, 1) <> ""
If fila / 2 <> Int(fila / 2) Then
If contador = 0 Then
cadena = "A" & fila
contador = 1
Else
cadena = cadena & ", A" & fila
End If
End If
fila = fila + 1
Loop
Range(cadena).Select
End Sub

SCM

Muchas gracias por la ayuda no se que hubiera hecho sin usted.

Santiago, y si quisiera seleccionar las celdas de 5 en 5 también puedo utilizar la misma metodologia??, (A3,A8,A13,A18, etc), muy agradecido de antemano por tu ayuda santiago eres lo maximo

Sub SelecPas5Celdas()
contador = 0
pasarceldas = 5
primerseleccionar = 3
dfila = 1
ffila = dfila
Do While Cells(ffila, 1) <> ""
If ffila = primerseleccionar Or ffila = contador * pasarceldas + primerseleccionar Then
If contador = 0 Then
cadena = "A" & ffila
Else
cadena = cadena & ", A" & ffila
End If
contador = contador + 1
End If
ffila = ffila + 1
Loop
Range(cadena).Select
End Sub

SCM

no es exactamente lo que buscas, pero puede servirte...

Option Explicit

'//By JuanC - Oct. 2007

Sub Pair_Hidden()
Dim A As Range
Dim C As Range, ws As Worksheet, aws As Worksheet
With Application
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Set aws = ActiveSheet
Set A = [A1:A16384] '//16384 = 2^14 (1/4 parte de 65536 = 2^16 filas)
Set ws = Worksheets.Add
For Each C In A
With C
If (.Row Mod 2) = 0 Then
ws.Range(.Address(0, 0)).Value = 1
End If
End With
Next
ws.Range("A:A").SpecialCells(xlCellTypeConstants).Select
aws.Select 0
ws.Delete
With Application
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Selection.EntireRow.Hidden = 1
Set A = Nothing
Set C = Nothing
Set ws = Nothing
Set aws = Nothing
End Sub

Saludos desde Baires, JuanC