VB Scripts which freeze the sheet from selected row

Sub Freez_funtions()

Worksheets("Sheet1").Select

With ActiveWindow

.SplitColumn = 0

.SplitRow = 8 'row number. sheet will freez from this row

End With

ActiveWindow.FreezePanes = True

End Sub