I do a search and replace, but if no data match the search then I want to ignore the message. This is my code, but I get a runtime error: 1004

Application.DisplayAlerts = False 'If no commas are found error message is ignored
Range("D2:D97").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True

What to do, what to do?
Schwartz