【VBA】非表示シートを完全一致で別ブックとして保存する方法

Option Explicit
Sub SaveSheetAsAnotherWorkbook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Dim sheetName As String
    
    ' 非表示シートの名前を指定
    sheetName = "特定の非表示シート"
    
    ' シートが存在するか確認
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    If ws Is Nothing Then Exit Sub
    On Error GoTo 0
    
    ' 新しいワークブックを作成
    Application.ScreenUpdating = False
    Set newWb = Workbooks.Add(xlWBATWorksheet)
    
    ' 非表示シートを新しいワークブックにコピー
    ws.Copy Before:=newWb.Sheets(1)
    
    ' 新しいワークブックの保存と既存ファイルの上書き確認
    newWb.SaveAs "C:\Users\ユーザー名\Documents\非表示シート別ブック.xlsx"
    Application.DisplayAlerts = False
    newWb.Close SaveChanges:=True
    Application.DisplayAlerts = True
    
    ' メモリ解放と画面更新の再開
    Set ws = Nothing: Set wb = Nothing: Set newWb = Nothing
    Application.ScreenUpdating = True
End Sub