Turn number lock on

[gavinkelly]

I am running a code but for some reason it turns the number lock off.

What code turns the number lock on. I am using windows vista with excel 2003.

Thanks

 

[Smitty]

See if this gets you anywhere:

http://www.ozgrid.com/forum/showthread.php?t=13239

HTH,

 

[gavinkelly]

Thanks but how do I set a reference to the "windows script host model" it errors at the wsh.regwrite line.

Sub TurnNumLockOn()
'Before running you must set a reference to the "Windows Script Host Model"
Dim wsh 'Windows Script Host
Dim strRegName As String 'registry string
strRegName = "HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators"
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite strRegName, 2
End Sub

cheers

 

[gavinkelly]

Also, any ideas why the number lock turns itself off, this is the first time it has done so and the only different type of line of code i am using is the
AppActivate Title:=...
SendKeys String:= ....

???

 

[Smitty]

I have no clue why Num Locks would be shutting off.

As for the WSH do a google search for it, there are a few relevant posts on VBA Express that discuss it with more familiarity than I have.