I've just recently responded to a similar request on another forum.
Whilst my answer there is NOT suitable for your purposes, a solution proposed by Paul_Hossler there does fit your purposes.
Here's the link: http://www.vbaexpress.com/forum/show...another-format
ps. there's one line you might prefer not to have in that code:
.Value = UCase(.Value)
(it capitalises the results).