Solved: Shorten code

[av8tordude]

is there a better or shorter/efficient way of writing this code?

If msg1.Caption = "Airport Shuttle Tips*" Or msg2.Caption = "Airport Shuttle Tips*" Or _
msg3.Caption = "Airport Shuttle Tips*" Or msg4.Caption = "Airport Shuttle Tips*" Or _
msg5.Caption = "Airport Shuttle Tips*" Then LTips.Visible = True

[mbarron]

Where do msg1, msg2, etc reside? Are the part of a user form, are they controls on a worksheet?

[mbarron]

If they are on a user form you can use something like:


Dim i As Integer
For i = 1 To 5
If Me.Controls("msg" & i).Caption Like "Airport Shuttle Tips*" Then
LTips.Visible = True
End If
Next

[Bob Phillips]

Dunno about shorter, but better IMO



msgTest = "Airport Shuttle Tips*"
LTips.Visible = msg1.Caption = msgTest Or _
msg2.Caption = msgTest Or _
msg3.Caption = msgTest Or _
msg4.Caption = msgTest Or _
msg5.Caption = msgTest

[av8tordude]

Thank you both for your help. XLD, you have tremendously help me in the past, which I am always grateful, but mbarron's code is what I was looking for.:friends:

[Bob Phillips]

Personally, I would not use a loop for 5 items, but you have an answer, so that is good.