Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
What am I missing?
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Who is missing ? | Excel Discussion (Misc queries) | |||
Toolbars Missing, And option to Add Missing | Excel Discussion (Misc queries) | |||
On Error? Creates 1 missing worksheet then never detects any other missing worksheets | Excel Programming | |||
Missing Row | Excel Worksheet Functions | |||
Add-ins missing | Excel Programming |