excel - InCorrect Parameter (VBA Script)

Question

Please help - everything seems correct but still getting incorrect parameter.

Sub Display_Tab_Sales_Revenue()

 With ActiveSheet
    'Visisbility of Tab Buttons
    .Shapes("Revenue_Inactive").Visible = False
    .Shapes("Revenue_Active").Visible = True
    .Shapes("Units_Inactive").Visible = True
    .Shapes("Units_Active").Visible = False
                
    'visibility of Tab Contents
    .Shapes("Map_Chart_Sales_Revenue").Visible = True
    .Shapes("Line_Chart_Sales_Revenue").Visible = True
    .Shapes("Map_Chart_Sales_Units").Visible = False
    .Shapes("Line_Chart_Sales_Units").Visible = False
        
 End With
     
End Sub

Sub Display_Tab_Sales_Units()

 With ActiveSheet
    'Visisbility of Tab Buttons
    .Shapes("Revenue_Inactive").Visible = True
    .Shapes("Revenue_Active").Visible = False
    .Shapes("Units_Inactive").Visible = False
    .Shapes("Units_Active").Visible = True
        
    'visibility of Tab Contents
    .Shapes("Map_Chart_Sales_Revenue").Visible = False
    .Shapes("Line_Chart_Sales_Revenue").Visible = False
    .Shapes("Map_Chart_Sales_Units").Visible = True
    .Shapes("Line_Chart_Sales_Units").Visible = True
                
 End With
    
End Sub

question from:https://stackoverflow.com/questions/65872789/incorrect-parameter-vba-script

Answer 1

Sub Display_Tab_Sales_Units()

With ActiveSheet
.Shapes("Revenue_Inactive").Visible = True
.Shapes("Revenue_Active").Visible = False
.Shapes("Units_Inactive").Visible = False
.Shapes("Units_Active").Visible = True
.Shapes("Map_Chart_Sales_Revenue").Visible = False
.Shapes("Line_Chart_Sales_Revenue").Visible = False
.Shapes("Map_Chart_Sales_Units").Visible = True
.Shapes("Line_Chart_Sales_Units").Visible = True    
End With

End Sub