What I am trying to do is search a currentregion for all dates stored as text and convert them to proper dates using the datevalue function. However when the code picks up a cell value that is anything other than a date stored as text then I get a run-time error 13 type mismatch and I am unable to get around it. Any ideas?

This was my attempt

Sub TextToDate()


Dim rngCurrentCell As Excel.Range
Dim dateTemp


Range("A10").Select
For Each rngCurrentCell In ActiveCell.CurrentRegion.Cells
    If IsError(DateValue(rngCurrentCell)) = False Then
    dateTemp = DateValue(rngCurrentCell)
    rngCurrentCell = dateTemp
    rngCurrentCell.NumberFormat = "dd/mm/yyyy;@"
    End If

Next rngCurrentCell


End Sub

Mayby it is not the best solution, but it works:

Dim rngCurrentCell As Excel.Range
Dim dateTemp

Range("A10").Select
For Each rngCurrentCell In ActiveCell.CurrentRegion.Cells
On Error Resume Next'********************
    If IsError(DateValue(rngCurrentCell)) = True Then '************
Else'********************
    dateTemp = DateValue(rngCurrentCell)
    rngCurrentCell = dateTemp
    rngCurrentCell.NumberFormat = "dd/mm/yyyy;@"
    End If
Next rngCurrentCell

End Sub

Many thanks, It works well.

I had tried using the 'on error resume next', and 'on error Goto', without any success. I was putting it after the IsError line so it wasn't working.