Thanks. that helped a lot.. :)
used different case though, much tighter.

Select Case KeyCode
Case Asc("0") To Asc("9"), Asc("."): 'proceed to next char
Case Else: 'do Nothing
KeyCode = 0
End Selec

--
simpleMo
-----------------------------------------------------------------------
simpleMod's Profile: http://www.excelforum.com/member.php...fo&userid=1572
View this thread: http://www.excelforum.com/showthread.php?threadid=27245