How long has the Like operator been around?! I never knew it existed. Oh, in SQL, of course, but not in VBA. Guess I have some more reading to do. Alas, I thought by now I knew everything.
Anyway, you could intercept the error and handle it manually, but that's a pain. What you want is the UBound function. UBound(splitslash) returns the upper bound of the first dimension of the array named 'splitslash'. An optional second argument specifies other dimensions, in case splitslash has more than one. So you'd run the loop like this:
Code:
For i = 1 to UBound(splitslash)
If splitslash(i) Like "*[/]*" Then Range("H4").Value = splitslash(i)
next i
If you want to put each value on a new row, try this:
Code:
r=1
For i = 1 to UBound(splitslash)
If splitslash(i) Like "*[/]*" Then
r = r + 1
Cells(r, 8).Value = splitslash(i)
End If
next i
That puts each new value in rows 2 and up, column 8 (ie H).