Thread: Make newly opened workbook the active workbook

My code below is giving me a problem. The first line works, to open the workbook. My second line, the "Set" line, gives me an error cod 424, "Object Required". I think (maybe) it's becuase the workbook newly opened isn't the active workbook, so how do I resolve this? As you can see, I just want it open long enough to copy one sheet from it. Any help is greatly appreciated.
Thanks,
John

Workbooks.Open ("\\12AUST1001FS01\SHARE10011\Budget\SOBUDGET\11MFR\SO_Projections\" & MO & "\" & MO & "_AgyProjections_PivotsforAnalysis.xls"), ReadOnly:=True, UpdateLinks:=True
     Set PivAnal = Active.Workbook
   
   With PivAnal
        .Sheets(Array("Play")).Copy _
            Before:=Workbooks("2BDeleted.xls").Sheets("Lookups")
    End With
    
    PivAnal.Close False

You can just do this:

Dim PivAnal As Workbook

Set PivAnal = Workbooks.Open("\\12AUST1001FS01\SHARE10011\Budget\SOBUDGET\11MFR\SO_Projections\" & _
    MO & "\" & MO & "_AgyProjections_PivotsforAnalysis.xls", ReadOnly:=True, UpdateLinks:=True)

Dom