Num Lock

[davidzan]

I created a macro to create a Message box; when running the macro it disables my Num Lock feature on my laptop. Is there a macro command to correct this? Below is the macro I created:

Sub Comment_New()

Dim cmt As Comment

Set cmt = ActiveCell.Comment

If cmt Is Nothing Then

ActiveCell.AddComment Text:=""

Set cmt = ActiveCell.Comment

With cmt.Shape.TextFrame.Characters.Font

.Name = "Tahoma"

.Size = 12

.Bold = False

.ColorIndex = 0

End With

End If

SendKeys "+{F2}"

ActiveCell.Comment.Visible = True

End Sub

 

[rollis13]

Add this line of code just under the SendKeys line (your NumLock needs to be already On when you use your macro):

SendKeys "{NUMLOCK}{NUMLOCK}"