CODEWITHSUNDEEP
excelvbatabsuserformmultipage
Patrick
Patrick

Reputation: 232

VBA Activate Userform Tab depending on active worksheet

I have a userform with a number of tabs that relate to specific worksheets. I’m trying to activate a specific tab depending on what the active worksheet is when the userform is initialized. Can someone help me out here.

Thanks.

Private Sub UserForm_Initialize()

If ActiveSheet.Name = "Test1" Then
    MultiPageSheets.SelectedItem.Index = 0

ElseIf ActiveSheet.Name = "Test2" Then
    MultiPageSheets.SelectedItem.Index = 1

ElseIf ActiveSheet.Name = "Test3" Then
    MultiPageSheets.SelectedItem.Index = 2

ElseIf ActiveSheet.Name = "Test4" Then
    MultiPageSheets.SelectedItem.Index = 3

End If

End Sub

Upvotes: 1

Views: 405

Answers (1)

Simon
Simon

Reputation: 1375

Try:

Private Sub UserForm_Initialize()

If ActiveSheet.Name = "Test1" Then
    MultiPageSheets.Value = 0

ElseIf ActiveSheet.Name = "Test2" Then
    MultiPageSheets.Value = 1

ElseIf ActiveSheet.Name = "Test3" Then
    MultiPageSheets.Value = 2

ElseIf ActiveSheet.Name = "Test4" Then
    MultiPageSheets.Value = 3

End If

End Sub

Upvotes: 1

Related Questions