Date format.

[R0d]

Hi everyone

I have a sheet that data is imported into and the word "DATE" is placed randomly in cells in column "M".

I am looking for a macro that can find each word "DATE" in column "M" and offset one cell to the left and change the cell format to NumberFormat = "m/d/yyyy".

Thanks in advance.

 

[JLGWhiz]

Sub t()
Dim c As Range
    With ActiveSheet
        For Each c In .Range("M2", .Cells(Rows.Count, "M").End(xlUp))
            If c.Value = "Date" Then
                c.Offset(, -1).NumberFormat = "m/d/yyyy"
            End If
        Next
    End With
End Sub