Visual Basic para Aplicaciones - aplicacion de rangos

Sub Alerta1()

Dim r_1 As Range

Dim FechaActual As Date

Dim mensaje As String

Set r_1 = Sheets("Hoja1").Range("A2:m" & Ultimafila)

FechaActual = Date

If Hoja1.Range("A2") <> "" Then

For Each r_1 In Hoja1.Range("A2", Hoja1.Range("A1").End(xlDown))

Next r_1

End If

If FechaActual = r_1.Offset(0, 4) Then

mensaje = mensaje & r_1 & r_1.Offset(0, 1) & vbNewLine

End If

If mensaje <> "" Then

MsgBox mensaje, vbCritical, "Vencimiento de plazo de Entrega de documentos"

End If

End Sub

Sub VencimientoDocumentacion()

Dim FechaActual As String

Dim fecha As String

Dim Ultimafila As Long

Dim mensaje As String

Ultimafila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row

FechaActual = Date

For i = 2 To Ultimafila

    fecha = Sheets("Hoja1").Cells(i, 5)

    If DateValue(fecha) = DateValue(FechaActual) Then

        If i = 2 Then

            mensaje = Sheets("Hoja1").Cells(i, 2)

        Else

            mensaje = mensaje & vbNewLine & Sheets("Hoja1").Cells(i, 2)

        End If

    End If

Next i

      If mensaje <> "" Then

        MsgBox "Lista Que vence Hoy" & vbNewLine & mensaje, vbOKOnly + vbExclamation, "Vencimiento de plazo de Entrega de documentos"

      Else

        MsgBox "No Hay Vencimientos Hoy", vbOKOnly + vbInformation, "Vencimiento de plazo de Entrega de documentos"

      End If

End Sub