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.