Achando o último dia do mês

Em algumas aplicações, principalmente as financeiras, às vezes é necessário obter o último dia de cada mês.

Seguem duas formas, uma com fórmula do Excel e outra em VBA.

Detalhe interessante: dia zero é o último dia do mês anterior.

;-)

Private Sub teste()
    Dim ultimo_dia_mes As Date
    ultimo_dia_mes = CDate(1 & "/" & Month(Now()) + 1 & "/" & Year(Now())) - 1
    If ultimo_dia_mes = Format(Now, "dd/mm/yyyy") Then
        MsgBox "ultimo dia"
    End If
End Sub