Form doesn't activate workbook after Unload Me

[wist]

Hello experts,

not sure why this doesn't work but I want to activate a Worbook that I opened via form after the form closes but it doesn't do anything.

My Code

Private Sub OpenButton_Click()


Dim CName As String

If Country.Value = "Abu Dhabi" Then CName = "C:\IC\Intercompany Recs Middle East.xlsb"

On Error GoTo Konec
        If ReadOnly.Value = True Then Workbooks.Open filename:=CName, UpdateLinks:=False, ReadOnly:=True Else Workbooks.Open filename:=CName, UpdateLinks:=False
        CName = ActiveWorkbook.Name
                       
Konec:
    Unload Me
    Workbooks(CName).Activate
    MsgBox CName


            
End Sub

What's weird that Workbooks(CName).Activate doesn't work but MsgBox CName does display the Name of the Woorkbook.

Thank youu

 

[jmacleary]

Not sure if these will help but: swap the Unload Me and Workbooks(CName).Activate round. If that doesn't work, try an additional Workbooks(CName).Select before the Unload.
Regards
John

 

[daverunt]

Does using Set help:

Set CName = ActiveWorkbook.Name

 

[Fluff]

@daverunt
you only use the word Set with objects.

 

[daverunt]

Thanks Fluff. I did actually read that sometime in the past now you mention it. I'm old and I forgot. That's my excuse.

 

[wist]

Thanks for the suggestions. It turns out that it was this line of code doing the damage. Once I removed it worked even without having to activate anything.

Private Sub UserForm_Initialize()

Me.MultiPage1.Value = 0

...

End Sub

I wanted to have the first Tab active once I load the form and I achieved it by only having this tab active in the VBA editor.