D
Doug
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
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