If keypressed(SHIFT)

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 16 Then

MsgBox "Shift trykkes ned"
End If

End Sub

så vidt jeg ved kan du ikke fange den i et ark, i Application.OnKey  er shift kun brugt i sammenhæng med anden tast,Shift tegnet er "+"

Et almindelig  + er "{+}2

1^(1/2) -> er det i en form eller er det på selve regnearket du ønsker at chekke ?

Det på selve regnearket.

Undskyld jeg ikke svarer før nu..

Du kan (nok) godt, men det vil kræve programmering med API-funktioner, jvilket ikke er den nemmeste sag i verden.
Fortæl hvad du skal bruge det til, så kan vi måske omgå/tilrette noget andet.

Når brugere trykker på en optionkey køres en macro. Man skal kunne markere optionkeyen uden at køre denne macro (ved at holde shift ned eller på en eller anden måde) - optionkeyen bruges nemlig både i onaction-macroen og andre macroer i workbooken.

Jeg laver bare en løsning, hvor man skal trykke på en knap for at køre macroen..