HOW COME THIS WORKS
if I place this formula in a cel

=IF(A1 < "",ResetFont()

And in Module1 the Subroutine i

Sub ResetFont(
msgBox(ActiveCell.Value
End su

BUT THIS DOESNT
Sub ResetFont(
ActiveCell.Font.Size = 1
End su

ALSO IF I TRY
Sub ResetFont(
ActiveCell.Value = "1
End su

*It throws an error in the cell with the =IF(...?

--
Willo
-----------------------------------------------------------------------
Willot's Profile: http://www.excelforum.com/member.php...fo&userid=3516
View this thread: http://www.excelforum.com/showthread.php?threadid=54974