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

I don't get an error message if no commas are found. Are you sure that is
what the error message is? Perhaps changing a comma to a period is causing
an error in a formula.

--
Regards,
Tom Ogilvy

"Dr. Schwartz" wrote in message
...
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