willianrc,

Boa noite!

Você pode usar esse código:

Sub Teste()
     Dim  i As Long
     Dim UltimaLinha as Long
     Dim Texto As String 
     UltimaLinha = Sheets ("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row 
     For i = 2 To UltimaLinha
          If Month(CDate(Range("B" & i).Value)) = Month(Date) 
               Texto = Texto & Range("A" & i).Value & " - " & Range("B" & i).Value
          EndIf
     Next 
     Magbox Texto
End Sub

Muito obrigado wagner

Caso eu queira colocar em um ListBox como eu faria ?

willianrc,

Bom dia!

Sim. Faça assim.

Perfeito muitoooooooooooooooooooo obrigaod wagner.