Copying from one Workbook to another not working

Hi Jo,

Untested but see how this goes:

Dim wbThisWorkbook As Workbook
    Dim wbDestinationWorkbook As Workbook
    Dim varMyTab As Variant

    Set wbThisWorkbook = ThisWorkbook
    Set wbDestinationWorkbook = Workbooks.Open("G:\COMMERCIAL CONTRACTS\Templates_UsefulStuff\Commercial Job Progress.xlsx")

    If wbDestinationWorkbook.ReadOnly Then
        wbDestinationWorkbook.Close SaveChanges:=False
        Set wbThisWorkbook = Nothing
        Set wbDestinationWorkbook = Nothing
        MsgBox "Another user is in the Commercial Job Progress file. Once they have exited retry."
        GoTo ProcedureDone
    Else
        wbThisWorkbook.Sheets("CommercialQuotes").Range("A2:I2").Copy Destination:=wbDestinationWorkbook.Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Offset(1)
        wbDestinationWorkbook.Close SaveChanges:=True
        Set wbDestinationWorkbook = Nothing
        'The following will delete each tab from the array in the 'wbDestinationWorkbook'
        For Each varMyTab In Array("CommercialQuotes", "Tags", "CSV")
            wbThisWorkbook.Sheets(CStr(varMyTab)).Delete
        Next varMyTab
        wbThisWorkbook.Sheets("Input").Select
        Set wbThisWorkbook = Nothing
    End If
    
ProcedureDone:
    Exit Sub

HTH

Robert

Thanks so much Robert, that worked a treat!

You're welcome. If you could mark the thread as solved it would be appreciated.

Regards,

Robert