Yip, i used the following:

Sub RemoveWrongDate()
'
Range("CA:CA").Select
Selection.Replace What:="(31.12.9999)", Replacement:="",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Columns("A:EP").EntireColumn.AutoFit

End Sub

If there are any other suggestions i would be gratefull

regards,

Tempy

*** Sent via Developersdex http://www.developersdex.com ***