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

Know what you mean, but I never combine case statements, just in case<g

--

HTH

RP

"simpleMod" wrote in message
...

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 Select


--
simpleMod
------------------------------------------------------------------------
simpleMod's Profile:
http://www.excelforum.com/member.php...o&userid=15724
View this thread: http://www.excelforum.com/showthread...hreadid=272454