VBA to go to Home Tab

[SanjayGMusafir]

Hi Experts

Need some help.

Can there be some VBA to go to home tab?

Thanks a lot

 

[StephenCrump]

Do you mean?

Worksheets("Home").Activate

 

[SanjayGMusafir]

Do you mean?

Worksheets("Home").Activate

Thanks for reverting @StephenCrump

I tried it. it's giving some error.

Runtime error '9'

 

[StephenCrump]

What is the name of your "home tab"?

I have assumed "home", but you need to change appropriately.

 

[SanjayGMusafir]

What is the name of your "home tab"?

I have assumed "home", but you need to change appropriately.

it's 'Home' only.

Just to avoid any ambiguity

Thanks a lot

 

[Edgar_]

Execute a button from third party com add-In

I have installed a third party com add-in. It is a .vsto file format. The add-in has a Refresh All button. I want to execute that using VBA. Is this even possible?

www.mrexcel.com

Option Explicit

Public Function ActivateRibbonTab(ByVal strTabName As String) As Boolean
    
    Dim UIA                              As UIAutomationClient.CUIAutomation
    Dim UIElement                        As UIAutomationClient.IUIAutomationElement
    Dim Condition                        As UIAutomationClient.IUIAutomationCondition
    Dim ToolsTab                         As UIAutomationClient.IUIAutomationElement
    Dim LegacyIAccessiblePattern         As UIAutomationClient.IUIAutomationLegacyIAccessiblePattern
    
    Set UIA = New CUIAutomation
    Set UIElement = UIA.ElementFromHandle(ByVal Application.Hwnd)
    
    If Not (UIElement Is Nothing) Then
        Set Condition = UIA.CreateAndCondition(UIA.CreatePropertyCondition(UIA_NamePropertyId, ByVal strTabName), _
        UIA.CreatePropertyCondition(UIA_ClassNamePropertyId, "NetUIRibbonTab"))
        Set ToolsTab = UIElement.FindFirst(TreeScope_Subtree, Condition)
        If Not (ToolsTab Is Nothing) Then
            Set LegacyIAccessiblePattern = ToolsTab.GetCurrentPattern(UIA_LegacyIAccessiblePatternId)
            LegacyIAccessiblePattern.DoDefaultAction
            ActivateRibbonTab = True
        End If
    End If

End Function

Then run this:
ActivateRibbonTab "Home"

This is language dependent, though.