Multiple CheckBoxes condition vba

Question

Hello,

I have 3 checkboxes on a userform, I am trying to write a statement like:

if any of the checkboxes = true

do something

else

do something else

I am trying to avoid repeating the following  code for each checkbox (they do exactly the samer thing):

Private Sub ChkClothing_Click()

         If ChkClothing = True Then

            txtItem.Visible = True

            Item.Visible = True

            txtItem.SetFocus

        Else

            txtItem.Text = ""

            txtItem.Visible = False

            Item.Visible = False

        End If

End Sub

Thanks

Answer 1

You can create a procedure (sub) that is called by all three:

Private Sub ChkClothing_Click()

    Call HandleClick

End Sub

Private Sub ChkThis_Click()

    Call HandleClick

End Sub

Private Sub ChkThat_Click()

    Call HandleClick

End Sub

Private Sub HandleClick()

    If ChkClothing Or ChkThis Or ChkThat Then

        txtItem.Visible = True

        Item.Visible = True

        txtItem.SetFocus

    Else

        txtItem.Text = ""

        txtItem.Visible = False

        Item.Visible = False

    End If

End Sub

Answer 2

Great, thanks. (Got stuck, I was trying to fit it all in one sub)