Ayuda corregir macro

[AprendizMexicano]

Buen dia a todos:

Encontre esta macro en internet, lo que hace es separar por semanas un listado insertando una fila vacia, quisiera que me hiciera la separación pero por mes, ya intente cambiando weekday por month pero no me ningun resultado.

Sub ShowWeeks()
Dim iToday As Integer
Dim iYesterday As Integer

Range("B11").Select
iYesterday = Weekday(ActiveCell.Value)
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
iToday = Weekday(ActiveCell.Value)
If iToday < iYesterday Then
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
End If
iYesterday = iToday
Loop
Range("A1").Select
End Sub

Les agradezco de antemano sus comentarios.

Feliz navidad y prospero año nuevo para todos

Saludos

[jchuk]

Hola,

Prueba cambiando el símbolo < por > en el if iToday........
Además, cambia también el weekday por month claro.

Ya me cuentas si vale de algo.

[AprendizMexicano]

Si tienes mucha razon hacienda la correccion que mencionas se soluciono el problema.

Muchas Gracias.

Saludos