Sub Sample() Dim i As Integer, msg As String For i = 1 To 12 msg = msg & MonthName(i) & vbCrLf Next i MsgBox msg End Sub