Matching Items In A Range?

I think I've been at the Xmas sherry for far too long as I can't see the wood for the trees with the following code. It is supposed to find the position of the string_to_find within range_to_match.

I have checked and the address returned locally by range_to_match.address is correct. However the individual items (current_item) are coming back as blanks (as in the Msgbox) - rather than the members of the range.

I did try and do this via application.match but again got an error.

There is an option explicit at the very top of the module.

Code:

Public Function match_string(range_to_match As Range, string_to_find As String) As Long
Dim i As Long
Dim pos As Variant

[Code]....