VBA Програмно фиксировать ячейки Опции

[White]

Добрый вечер. Пишу небольшую программу на VBA Excel 2007. Как програмно создавать фиксированные ячейки и области? То есть, у меня есть шапка и я хочу её переносит на другой лист при нажатии на кнопку ...

Set List = Sheets.Add
On Error GoTo errh
tryagain:
sheetname = TextBox1
List.Name = sheetname
Exit Sub
errh:
If Err.Number = 1004 Then Resume tryagain

Worksheets(sheetname).Range("A1").Value = TextBox2

[IUnknown]

Копируй и переноси как обычно:

Код

    Dim NewSheet As Worksheet
    
    sheetname = "Sheet4" ' Тут любым образом получаешь имя нового листа
    Set NewSheet = Sheets.Add
    NewSheet.Name = sheetname
    
    Sheets("Sheet1").Select ' Отсюда будем копировать
    Range("A1:E2").Select ' Размер копируемой области тебе известен
    Selection.Copy
    Sheets(sheetname).Select
    Range("A1:E2").Select
    ActiveSheet.Paste
    Range("F3").Select ' выбираешь ячейку на одну ниже и левее чем скопированная область
    ActiveWindow.FreezePanes = True ' а вот теперь фиксируешь область

Не знаю, как на 2007, но на 2002/2003 это прекрасно работает