Call a sub multiple times with variables as strings without opening destination file over and over again

Question

I have the following sub

Sub CopyPaste_Wbk_Wbk(Og_rng As String, New_rng As String)

    On Error GoTo ErrHandler
    OnStart
    Dim pthFromWb As String