Date Format Question

[singeredel]

Is there a way to include a non-breaking space between the month and day in
the following date format code so that the month and day do not separate when
they appear at the end of a line?

ScheduleDate1 = Format(ScheduleDate, "mmmm dd, yyyy")

Thanks...

 

[Greg Maxey]

Include the non-breaking character in your format definition:

Sub Test()
Dim SDate As Date
SDate = Now
Selection.Range.InsertAfter _
Format(SDate, "mmmm" & Chr(160) & "dd," & Chr(160) & "yyyy")
End Sub

 

[Helmut Weber]

Hi Singeredel,

looks odd, but seems to work:

Selection.TypeText _
Text:=Format(Now, "mmmm" & Chr(160) & "dd," & Chr(160) & "yyyy")

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

 

[singeredel]

Thank you both. I didn't realize I could break up the format with the
character code. That works.