What am I missing?
I am assuming that this is a regular workbook and not an addin? Do you have a
class instantiated to catch events. If not then in ThisWorkbook you want
Private Sub Workbook_Open()
Application.OnKey "%{LEFT}", "ShiftLeft"
Application.OnKey "%{RIGHT}", "ShiftRight"
End Sub
--
HTH...
Jim Thomlinson
"keithb" wrote:
What am I missing? This code is in the "ThisWorkbook" Module; however it
does not execute ShiftLeft and ShiftRight when the designated keys are
pressed.
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Application.OnKey "%{LEFT}", "ShiftLeft"
Application.OnKey "%{RIGHT}", "ShiftRight"
End Sub
Sub ShiftLeft()
With Selection
If (.IndentLevel 0) Then
.InsertIndent -1
Else
Beep
End If
End With
End Sub
Sub ShiftRight()
With Selection
If (.IndentLevel < 15) Then
.InsertIndent 1
Else
Beep
End If
End With
End Sub
|