▼質問
ScrollAreaのバックアップを取ってそれを戻すときに次のエラーが出る。

    Dim strScrollArea As String
        
    With Worksheets("Sheet1")
        strScrollArea = .ScrollArea
        .ScrollArea = ""
        '次の処理でエラーが出る
        .ScrollArea = strScrollArea
    End With

「アプリケーション定義またはオブジェクト定義のエラーです。」

どうしてなんだ。

▼回答
理由は、A1形式の時しか使えないからなんだ。

だから、次の様にA1形式にしてからバックアップを取って戻す必要があるんだ。

    Dim strScrollArea As String
    Dim lngStyle      As Long
        
    With Worksheets("Sheet1")
        lngStyle = Application.ReferenceStyle
        Application.ReferenceStyle = xlA1
        strScrollArea = .ScrollArea
        .ScrollArea = ""
        '処理
        .ScrollArea = strScrollArea
        Application.ReferenceStyle = lngStyle
    End With

注意として、前回の形式が変わらない様にApplication.ReferenceStyleの

バックアップも必要だね！

---