Para obtener todos los lunes del mes en curso puedes hacer algo así :

Dim Mes As Long, Fecha As Date, DiaSemana As Long, PrimerLunes As Long

'tomo la fecha del día uno del mes actual
Fecha = DateValue("1/" & Format(Now, "mm/yyyy"))
'miro qué día de la semana es
Dia = Weekday(Fecha, vbMonday)
'busco el primer lunes a partir de ese día
If DiaSemana <> 1 Then
     PrimerLunes = Abs(7 - DiaSemana + 1)
Else
     PrimerLunes = DiaSemana
End If
Fecha = DateAdd("d", PrimerLunes, Fecha)
'mientras esté en el mismo mes voy mostrando los lunes
Mes = Month(Now)
While Mes = Month(Fecha)
     Debug.Print "El día " & Format(Fecha, "d/mm/yyyy") & " es lunes"
     Fecha = DateAdd("d", 7, Fecha)
Wend