Copy Existing Sheet, Paste Values from existing workbook into new workbook

[Excel Fox]

Try replacing the second routine with this...

Sub GetSheetDataToNewWorkbook(strSheetName As String)

    Dim varArray
    varArray = wbk.Sheets(strSheetName).UsedRange.Value
    With ThisWorkbook
        .Sheets.Add Before:=.Sheets(1)
        .Sheets(1).Cells(1).Resize(UBound(varArray, 1), UBound(varArray, 2)).Value = varArray
        .Save
    End With
    wbk.Close
    
    Set wbk = Nothing
    strFile = vbNullString
    Unload frmSheetSelector
    
End Sub