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

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

<According to help
SpellLang Optional Variant. The language of the dictionary being used. Can
be one of the MsoLanguageID values used by the LanguageID property.
</According to help

and checking the values of MsoLanguageID in the Object Browser shows
Const msoLanguageIDEnglishUK = 2057 (&H809)

NickHK

"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