Recorded code - change inset default setting

[footoo]

Code from the macro recorder is inset like this :

Sub Macro1()
    Range("A2").Select
End Sub

Is it possible to have no inset when using the recorder? Like this :

Sub Macro1()
Range("A1").Select
End Sub

 

[Asman_Kei]

I am not sure if it is possible. But perhaps this short keystroke combination might be good enough - Ctrl + A to highlight all the code, followed by Ctrl + Shift + Tab to shift everything to the left.

 

[footoo]

I am not sure if it is possible. But perhaps this short keystroke combination might be good enough - Ctrl + A to highlight all the code, followed by Ctrl + Shift + Tab to shift everything to the left.

That's exactly the sort of thing I want to avoid having to do.

 

[Norie]

Why would you not want the code to be indented?

Using indentation in code makes it more readable and easier to follow/debug.

 

[footoo]

Why would you not want the code to be indented?

Using indentation in code makes it more readable and easier to follow/debug.

I don't want the code indented between Sub and End Sub - like in the example I provided.
I do want indents within the code.

I don't want this :

Sub Macro1()
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:A6")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

I want this :

Sub Macro1()
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A6"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("A1:A6")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub