Copy Numerous Sheets to Numerous Unopened Workbooks

Here is my code btw:

Sub t()
Dim wb As Workbook, sh As Worksheet, fName As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
fName = sh.Name & "_Model.xlsm"
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & fName)
On Error Resume Next
wb.Sheets("sh.Name").Delete
On Error GoTo 0
Err.Clear
sh.Copy Before:=wb.Sheets(1)
ActiveSheet.Name = sh.Name
wb.Close True
Next
Application.ScreenUpdating = True
End Sub