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 !