testa IsDate

Typ

Sub Makro1()
Dim rSlutpunkt As Range
Set rSlutpunkt = Columns("A:A").Find(What:="*", SearchDirection:=xlPrevious)

Dim rAcell As Range
For Each rAcell In Range("A1", rSlutpunkt)
If IsDate(rAcell) Then
rAcell.Offset(0, 1).Value = MonthName(Month(rAcell))
End If

Next rAcell
End Sub

*********************

Jag är inte 100% på hur IsDate bestämmer om cellens värdet är datum. Kolla så att du inte råkar ut för överraskningar. Det är framför allt siffror den borde kunna få problem med