Use InSrt()

Sub liminal()
a = Range("A1").Value
b = Range("B1").Value
If InStr(a, b) Then
MsgBox ("DO SOMETHING")
End If
End Sub
--
Gary's Student


"Doug VanDerMark" wrote:

Simple question, just can't figure it out.

Cell A1 = 3,4,7

Cell B1 = 4

If the value of B1 is contained in A1 perform a task