Another way, or as I think Ron was suggesting

Public Const NBSP As String = " " ' chr(160)

Sub test()
Debug.Print Asc(NBSP) ' 160
End Sub

I got the space like character between the quotes from this in the
Intermediate window
?chr(160)

Regards,
Peter T



"G Lykos" wrote in message
...
Thanks,
George