Freeze 1st row of excel:
Set xlApp = CreateObject("Excel.Application")
xlApp.Rows(2).Select
xlApp.ActiveWindow.FreezePanes = True
Freeze 1st column of excel:
Set xlApp = CreateObject("Excel.Application")
xlApp.Columns(2).Select
xlApp.ActiveWindow.FreezePanes = True
Freeze 1st row AND 1st column of excel:
Set xlApp = CreateObject("Excel.Application")
xlApp.Range("B2").Select
xlApp.ActiveWindow.FreezePanes = True
Set xlApp = CreateObject("Excel.Application")
xlApp.Rows(2).Select
xlApp.ActiveWindow.FreezePanes = True
Freeze 1st column of excel:
Set xlApp = CreateObject("Excel.Application")
xlApp.Columns(2).Select
xlApp.ActiveWindow.FreezePanes = True
Freeze 1st row AND 1st column of excel:
Set xlApp = CreateObject("Excel.Application")
xlApp.Range("B2").Select
xlApp.ActiveWindow.FreezePanes = True
Comments