You need to learn how to program without selecting

Instead of

Range("A1").Select
Selection.Numberformat = "#,##0.00"

do

Range("A1").Numberformat = "#,##0.00"

no selection performed; no event triggered.

--
Regards.
Tom Ogilvy

"HotRod" wrote in message
...
In the code when I fire the Worksheet_SelectionChange() Event I then
reformat the contents of a cell, this in turn re-fires the Event producing
an infinite loop. Is there something I can do, or do I need to create a
global variable to track this problem?