Visual Basic para Aplicaciones - Cambiar formato de celda texto a fecha en excel

Option Explicit

Sub Macro1()

    Dim Lin As Long

    Sheets("COMPRAS AGOSTO").Select

    For Lin = 3 To 72

        If Application.WorksheetFunction.IsText(Cells(Lin, "B")) Then

           Cells(Lin, "B") = DateValue(Cells(Lin, "B"))

        End If

    Next

End Sub