You can use the worksheet function Index:

Option Explicit
Sub testme()

Dim res As Variant
Dim MyArray As Variant

MyArray = Array("Test", "This")

res = Application.Match("this", MyArray, 0)

If IsError(res) Then
MsgBox "Not in there"
Else
MsgBox "It's there and at position: " & res
End If

End Sub


Luis Carrion wrote:

Hi,
If I were to check if a variable: A="Test" is inside a list of
possible strings,I´ll do this:

Dim A as string
Dim B as variant
Dim MyArray As variant

MyArray=Array("Test", "This")
For Each B in MyArray
If A=B then Msgbox "It´s inside the group
Next A

Is it possible to test this in other way; something like this
If A is in/like MyArray then....... ---without looping inside the
array

Thanks.
LC

--

Dave Peterson

You can use the worksheet function Index:

Did you mean the worksheet function Match?



--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
You can use the worksheet function Index:

Option Explicit
Sub testme()

Dim res As Variant
Dim MyArray As Variant

MyArray = Array("Test", "This")

res = Application.Match("this", MyArray, 0)

If IsError(res) Then
MsgBox "Not in there"
Else
MsgBox "It's there and at position: " & res
End If

End Sub


Luis Carrion wrote:

Hi,
If I were to check if a variable: A="Test" is inside a list of
possible strings,I´ll do this:

Dim A as string
Dim B as variant
Dim MyArray As variant

MyArray=Array("Test", "This")
For Each B in MyArray
If A=B then Msgbox "It´s inside the group
Next A

Is it possible to test this in other way; something like this
If A is in/like MyArray then....... ---without looping inside the
array

Thanks.
LC

--

Dave Peterson

As Tom Ogilvy has pointed out, you meant to refer to the worksheet
function Match.

In xl2000 SR-1 and previous, the code below will work on 1-dimensional
arrays of 5461 or fewer elements.

Alan Beban

Dave Peterson wrote:
You can use the worksheet function Index:

Option Explicit
Sub testme()

Dim res As Variant
Dim MyArray As Variant

MyArray = Array("Test", "This")

res = Application.Match("this", MyArray, 0)

If IsError(res) Then
MsgBox "Not in there"
Else
MsgBox "It's there and at position: " & res
End If

End Sub


Luis Carrion wrote:

Hi,
If I were to check if a variable: A="Test" is inside a list of
possible strings,I´ll do this:

Dim A as string
Dim B as variant
Dim MyArray As variant

MyArray=Array("Test", "This")
For Each B in MyArray
If A=B then Msgbox "It´s inside the group
Next A

Is it possible to test this in other way; something like this
If A is in/like MyArray then....... ---without looping inside the
array

Thanks.
LC

Yes, I did. Darn fingers.



Tom Ogilvy wrote:

You can use the worksheet function Index:

Did you mean the worksheet function Match?

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
You can use the worksheet function Index:

Option Explicit
Sub testme()

Dim res As Variant
Dim MyArray As Variant

MyArray = Array("Test", "This")

res = Application.Match("this", MyArray, 0)

If IsError(res) Then
MsgBox "Not in there"
Else
MsgBox "It's there and at position: " & res
End If

End Sub


Luis Carrion wrote:

Hi,
If I were to check if a variable: A="Test" is inside a list of
possible strings,I´ll do this:

Dim A as string
Dim B as variant
Dim MyArray As variant

MyArray=Array("Test", "This")
For Each B in MyArray
If A=B then Msgbox "It´s inside the group
Next A

Is it possible to test this in other way; something like this
If A is in/like MyArray then....... ---without looping inside the
array

Thanks.
LC

--

Dave Peterson


--

Dave Peterson