How to copy worksheets to a new workbook

I am trying to develop code top copy 3 worksheets to a new workbook,
I have got this far but I am now stuck and could use some help.

Sub OutputN(FilePath, SaveName, FileType)
Dim wbA As Workbook
Dim wsA As Worksheet
Dim wbB As Workbook
'On Error Resume Next
Userinterfaceonly = True
With ThisWorkbook
 .Sheets("Utilities").Unprotect
 End With
   n = 1
           Do
                Select Case n
                     Case Is = 1
                       SheetName = "LabelBudgetA"
                     Case Is = 2
                        SheetName = "TapeBudgetA"
                     Case Is = 3
                        SheetName = "TotalBudgetA"
                 End Select
                 Set wbB = ThisWorkbook
            '    On Error GoTo 10
                        With wbB
                            .Sheets(SheetName).Range(SheetName & "_Table").Copy                                            ERROR LINE
                                   
                        End With
                                Application.SheetsInNewWorkbook = 3
                                    Set wbA = Workbooks.Add
                                     With wbA
                    .Sheets.Copy After:=wbB.Sheets(wbB.Sheets.Count)  'substitute actual sheet names
                   
                         .Sheets(SheetName).Range("C2").PasteSpecial Paste:=xlPasteValues
                    End With
                  
                 n = n + 1
               
            Loop Until n = 4
                   
              With wbA
               
                .SaveAs Filename:=FilePath & "\" & SaveName, FileFormat:=FileType, CreateBackup:=False
     
                .Close
          End With

   ' ThisWorkbook.Sheets(SheetName).Activate
    ThisWorkbook.Sheets("Utilities").Protect
    
    Application.DisplayAlerts = True
End Sub

This version stops at the line marked error with a "Subscript out of range" message which usually means a name doesn't exist.
I think they are there.
John