Private Type tpVariant
    vt As Integer
    r1 As Integer
    r2 As Integer
    r3 As Integer
    pt As LongPtr
    r4 As LongPtr
End Type

=ЕСЛИ(ИЛИ(C10;0);1;MyFunc())

If условие1 OR условие2 Then

Select Case True
Case условие1, условие2
***
End Select

Option Explicit

Private Prop1

Public Property Let Metod1(InValue)
    Attribute Item.VB_UserMemId = 0
    Prop1 = InValue
End Property

Public Property Get Metod1()
    Attribute Item.VB_UserMemId = 0
    Metod1 = Prop1
End Property

Private WithEvents cb As CommandBars, cbOn As Boolean
Private hiddens As Object 'As Dictionary

Private Sub Hiding_Event(Target As Range)
    MsgBox "Скрытие диапазона " & Target.Address
End Sub

Private Sub cb_OnUpdate()
    Dim sel As Range, addr$
    Set sel = Selection
    With sel
        addr = .Address
        If .EntireRow.Hidden Then
1           If Not hiddens.Exists(addr) Then
                hiddens.Add addr, Empty
                Hiding_Event sel
            End If
        ElseIf .EntireColumn.Hidden Then GoTo 1
        Else
            If hiddens.Exists(addr) Then
                hiddens.Remove addr
            End If
        End If
    End With
End Sub

Private Sub Workbook_Open()
    cbInit
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not cbOn Then cbInit
End Sub
Sub cbInit()
    Set cb = Application.CommandBars
    Set hiddens = CreateObject("Scripting.Dictionary")
    cbOn = True
End Sub

"<myns:mystruct xmlns:myns=""my-very-very-unical-namespace""><something/></myns:mystruct>"