ワークシートの先頭行を固定

Sub prcFreezeTopRow()
‘ ワークシートの先頭行を固定する処理

' アクティブなワークシートを対象とする
With ActiveWindow
    ' 既存の固定を解除
    .FreezePanes = False
    ' 先頭行を固定
    .SplitRow = 1
    .FreezePanes = True
End With

End Sub