Не даваш информация каква ти е операционната система и какви ти са електронните таблици.
Понеже повечето от потребителите, под "електронна таблица" разбират ЕКСЕЛ, предполагам , че си с ЕКСЕЛ и някакъв WINDOWS (естественно).

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Const VK_CONTROL = &H11, VK_LEFT = &H25, VK_UP = &H26, VK_RIGHT = &H27, VK_DOWN = &H28

Const VK_0 = &H30, VK_1 = &H31, VK_2 = &H32, VK_3 = &H33, VK_4 = &H34

Const VK_5 = &H35, VK_6 = &H36, VK_7 = &H37, VK_8 = &H38, VK_9 = &H39

Const VK_A = &H41, VK_B = &H42, VK_C = &H43, VK_D = &H44, VK_E = &H45

Const VK_F = &H46, VK_G = &H47, VK_H = &H48, VK_I = &H49, VK_J = &H4A

Const VK_K = &H4B, VK_L = &H4C, VK_M = &H4D, VK_N = &H4E, VK_O = &H4F

Const VK_P = &H50, VK_Q = &H51, VK_R = &H52, VK_S = &H53, VK_T = &H54

Const VK_U = &H55, VK_V = &H56, VK_W = &H57, VK_X = &H58, VK_Y = &H59, VK_Z = &H5A

Const VK_ENTER = &HD



Sub Test()

 Dim I As Long

 For I = 1 To 2000000000

   'pravi6 ne6to

   If GetAsyncKeyState(VK_UP) <> 0 Then 

     MsgBox "Natisna strelkata!"

     Exit Sub

   End If

 Next

End Sub