Chris,
Maybe a Worksheet event to format the cell; the following is a
"Starter" but maybe needs code to check length of input and check target
address if just one cell.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo wsexit
If Target.Column < 1 Then GoTo wsexit '<==== not coulmn A
Application.EnableEvents = False
Target.Value = Format(Replace(Target.Value, " ", ""), "0#### ######")
wsexit:
Application.EnableEvents = True
End Sub

"ChrisMattock" wrote:


Hi all, I have a cell that NEEDS to be of the following format:

0#### ######

I have set this up under formatting, custom... and when I type a number
like this...

01304999999 I get the result 01304 999999 PERFECT!

Unfortunately if I type this....

01304 999 999 I get this result 01304 999 999 which ain't good as it
mucks up my Macro, whih incidentally is this...

appWD.ActiveDocument.Bookmarks("PMTelephone").Rang e =
Format(strPMTelephone, "0#### ######")

Any ideas?


--
ChrisMattock
------------------------------------------------------------------------
ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
View this thread: http://www.excelforum.com/showthread...hreadid=554500