I cant help but can vouch that it is late...cos im tired too

Good Luck

DB :))))



"pjbur2005 via OfficeKB.com" <u18722@uwe wrote in message
news:6a6e487d003fb@uwe...
Hi there folks, I have tride to find the answer to this but have given
up,
its 0140 here and I am now very tired! (poor excuse!

I am using the following code to spell check a text box on a userform.

Private Sub Enter_Click()

With Worksheets("panel form")
Unprotect
.Range("A1") = circumstancesform.circumstancestext.text
.Range("A1").CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True, _
SpellLang:=3081
circumstancesform.circumstancestext.Value = .Range("a1")

.Range("A1").ClearContents
'.AppActivate ("circumstancesform")
.Protect
End With

End Sub

SellLang:= 3081 gives me English Austrailia. can anyone tell me what the
number is for uk English or can anyone tell me how to set to English using
VBA

Thanks to all for reeding and those that respond a Huge thank you in
advance.

Paul

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200612/1