Convert macro

[AlexanderBB]

This was recorded

 Sheets("Sheet1").Select
    Cells.Select
    Selection.Clear
    Range("A1").Select
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    Columns("A:A").ColumnWidth = 36
    Columns("B:B").ColumnWidth = 36

Is it possible to execute this (re write it) without using Select or Active Window ?

 

[Michael M]

I don't believe so, but what is the problem with using activewindow ??

Sub MM1()
Sheets("Sheet1").Activate
With ActiveSheet.Cells
    .Clear
    .Columns("A:A").ColumnWidth = 36
    .Columns("B:B").ColumnWidth = 36
End With
With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
    .FreezePanes = True
End With
End Sub

 

[AlexanderBB]

Just to use VBA without relying on anything else. That is, let the code control / do everything.
Stepping through shows the selections being made, it shouldn't need to do that.
I liked your changes.
Thanks.

 

[footoo]

Sheets("Sheet1").Activate
Cells.Clear
Columns("A:B").ColumnWidth = 36
Range("A1").Select
With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
    .FreezePanes = True
End With

 

[AlexanderBB]

Thanks Footoo.
Is it true = if you select something in code, you can't de-select it. You can only select something else?

 

[Michael M]

Stepping through shows the selections being made, it shouldn't need to do that.

In that case simply add...

Sub MM1()
[color=red]application.screenupdating=false[/color]
Sheets("Sheet1").Activate
With ActiveSheet.Cells
    .Clear
    .Columns("A:A").ColumnWidth = 36
    .Columns("B:B").ColumnWidth = 36
End With
With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
    .FreezePanes = True
End With
[color=red]application.screenupdating=true[/color]
End Sub

 

[footoo]

Thanks Footoo.
Is it true = if you select something in code, you can't de-select it. You can only select something else?

I don't know. I am using 2016 in which the de-select feature is not available.
Why not try it?

 

[AlexanderBB]

Thanks Michael, that's one way round it!
footoo, I've got 2016 as well, didn't know there was a de-select.

 

[Michael M]

Holding down the CTRL key and selcting the cells to deselect will work.....but there must always be at least 1 active cell !

 

[footoo]

Holding down the CTRL key and selcting the cells to deselect will work.....but there must always be at least 1 active cell !

Does this work in XL 2016? Doesn't work for me, but problems with this are not uncommon :
https://www.google.com/search?q=exc....69i57j0l2.29629j0j8&sourceid=chrome&ie=UTF-8