Macros will not run with shortcut keys
 

This macro will not run with the shortcut keys but will run using
tools,macros, run. I have several more similar and one will run with the keys
the others will not.


Sub Indent_Left_1()
'
' Indent_Left_1 Macro
' Macro recorded 4/2/2009 by Doug
'
' Keyboard Shortcut: Ctrl+Shift+L
'
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
End Sub

--
dm

Macros will not run with shortcut keys
 

Tools Macro Macros Options. This shows your macros assigned to a
shortcut key. Enter a letter (not number) there. Your macro will be
assigned to that key-combination. Ctrl + ... whatever ...

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Doug" wrote:

This macro will not run with the shortcut keys but will run using
tools,macros, run. I have several more similar and one will run with the keys
the others will not.


Sub Indent_Left_1()
'
' Indent_Left_1 Macro
' Macro recorded 4/2/2009 by Doug
'
' Keyboard Shortcut: Ctrl+Shift+L
'
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
End Sub

--
dm

Macros will not run with shortcut keys
 

Tested in 2003 using CTRL + SHIFT + L

No problems here.

Are you sure you haven't changed the shortcut since you recorded the macro?


Gord Dibben MS Excel MVP

On Mon, 14 Dec 2009 15:24:01 -0800, Doug
wrote:

This macro will not run with the shortcut keys but will run using
tools,macros, run. I have several more similar and one will run with the keys
the others will not.


Sub Indent_Left_1()
'
' Indent_Left_1 Macro
' Macro recorded 4/2/2009 by Doug
'
' Keyboard Shortcut: Ctrl+Shift+L
'
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
End Sub