Code to open a workbook , copy info and return it to another workbook using a cell v.

sub mine

Sheets("SITE").Select
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
Sheets("Control").Select
 
Dim Rng As Range, Source As Range, Tgt As Range
Dim wsD As Worksheet
Dim WB As Workbook
    
Set wsD = Workbooks("Returns.xls").Sheets("Control")
Set Rng = Range("C9")
    
If Not Rng.Value = vbNullString Then
        
Set WB = Workbooks.Open("P:\CET - Employee Engagement\Sourcing & Monitoring\" & Rng.Value)

With WB.Sheets("CallData")
Set Source = Range(.Cells(3, 1), .Cells(Rows.Count, 1).End(xlUp)).Resize(, 256)
End With

Set Tgt = Workbooks("Returns.xls").Sheets("SITE").Cells(Rows.Count, 1).End(xlUp).Offset(1)

Source.Copy Tgt

Application.DisplayAlerts = False

WB.Close False
Application.DisplayAlerts = True

End If

End Sub

Hi this code works perfectly just need a tweek how can I get the workbook which is opened up not to run any macros, because the workbook has an on open and an on close macro.

Use this statement before opening the workbook and set to True after closing.

Application.EnableEvents = False