This is the code I made so far. The values in D18:22 are the names of the sheets that need to be copied.
Sub MoveSheets()
With ThisWorkbook.Worksheets("Sheet1")
Dim Value As String
Workbooks.Open "C:\Users\HNichols\Documents\Bid Package Manual Testing\FAKE CSI CODE PAGE.xlsm"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Windows("TOC TESTING.xlsm").Activate
Value = (D18:22)
Windows("FAKE CSI CODE PAGE.xlsm").Activate
Sheets("Value").Copy After:=Workbooks("TOC TESTING.xlsm").Sheets(1)
Workbooks("C:\Users\HNichols\Documents\Bid Package Manual Testing\FAKE CSI CODE PAGE.xlsm").Close SaveChanges:=False
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub