Claus Busch wrote:

Hi Auric,

Am Sun, 11 Aug 2013 19:44:01 +0200 schrieb Claus Busch:

If IsNumeric(cell.Formula) And Not InStr(cell.Value, ",") 0 Then

sorry, typo. The line above is for german system
Try:
If IsNumeric(cell.Formula) And Not InStr(cell.Value, ".") 0 Then

or
If IsNumeric(cell.Formula) And InStr(cell.Value, ".") = 0 Then

Aha! That works! Thank you!

(I don't know why it never occured to me to check for the decimal...)

--
You need only two tools: WD-40 and duct tape.
If it doesn't move and it should, use WD-40.
If it moves and shouldn't, use the tape.