Sub OpenAllIn1()

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .EnableEvents = False
End With

MsgBox ("Do not do anything while this is running. It may take up to a minute depending on the speed of your computer. It will tell you when it has finished"), vbExclamation
strndrive = InputBox("Please enter the letter of the drive you go to when you want to view the grids")

'**    Dim strnfile As String
    
    
'**    strnfile = InputBox("Enter Your File Name. Although this is a temporary file, it will be saved to My Documents. If you want to delete it, you have to do so manually.", "File Name", "Name Your File")
    
'**    Set newbook = Workbooks.Add
'**       With newbook
'**        .Title = "Temp Grid"
'**        .Subject = "All In One"
'**        .SaveAs Filename:=strnfile
'**    End With
    
'**    With Application.FileDialog(msoFileDialogFolderPicker)
'**        .AllowMultiSelect = True
'**        .InitialFileName = ""
'**        .Show
'**        strnfile = .SelectedItems(1)
'**    End With
    
    Workbooks.Open (strndrive & ":\'***THIS IS WHERE I PUT MY FILE  PATH. FOR ALL INTENTS AND PURPOSES I REMOVED IT")
    Sheets("grid").Select
    Cells.Copy
    ThisWorkbook.Activate
    Sheets("source group").Select
    Cells.PasteSpecial
    Workbooks("punch list and grid-'**NAME OF MY FILE").Close

'(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
'))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
'AND THEN I REPEAT THAT LAST 7 LINES OF CODE ONCE FOR EVERY WORKSHEET. I HAVE TO OPEN
'AND CLOSE A TOTAL OF 35 FILES.
'))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
'(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((

    
  
  
    With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .EnableEvents = True
    End With


    Sheets("cp grids").Activate
    Range("a26") = "The last time you imported all grids was " & Now()
    MsgBox ("Done!")

End Sub

Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("\\Fritz\Admin\STWMAT\Central Region Materials\PAVEMENT MANAGEMENT\airports\Report Production\AASP.xlsx")

Worksheets("Sheet1").Range("A1").Copy
Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet1").Range("B1")
Application.CutCopyMode = False

' Declare Current as a worksheet object variable.
Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets
   ' Insert your code here.
Next

workbooks.open("y:\implementation\conversions\partner 1\punch list")
'copy/paste action...close it out'
workbooks.open("y:\implementation\conversions\partner 2\punch list")

For i = 1 to 35
   strWB = "\\servername\implementation\conversions\partner "& i & "\punch list"
   Set oBook = oExcel.Workbooks.Open(strWB)
   'copy/paste code
   'probably need looping structure here to increment the sheet index if you want each paste on a new sheet
   'or if copy/paste is only one column, use index to increment the paste column and put all on one sheet
   'can also use code to set the column label
   oBook.Close False
Next