Зафиксировать столбцы в MS Excel. VBA

Public Sub SAPBEXonRefresh(queryID As String, resultArea As Range)
    Range("A4").Select
    ActiveWindow.FreezePanes = True
End Sub