VBA - Accessing Text Value Error

Question

I have written the following code:

Function Find_Index(Gender As String)

   Dim Index As Long

   Do While Gender = Worksheets("Source").Cells(Index, "A").Text

       Index = Index + 1

   Loop

   Find_Index = Index

End Function

I'm getting the following error:

"Application-defined or object-defined error"

Due to the following line in the code:

Do While Gender = Worksheets("Source").Cells(Index, "A").Text

Any ideas why ?

Dave · Accepted Answer · 2017-06-21 11:37:46Z

3

You define Index but never set it to a value before you use it.

Add Index = 1 before the Do While line

answered Jun 21, 2017 at 11:37

Dave

4,3562 gold badges26 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Jordan Over a year ago

I cannot believe I missed that. Thank you very much!

Collectives™ on Stack Overflow

VBA - Accessing Text Value Error

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related