Application.worksheetfunction.index problem

[BigDelGooner]

Guys

I am getting the error message 'Type Mismatch' with the following line of code but can for the life of me see what I am doing wrong...

TEST = Application.WorksheetFunction.Index(Sec_Name, Workbooks(Wbk).Sheets("Position List").Range("Holding_Index"), 0)

Any ideas?

 

[taigovinda]

Did you declare TEST as a range? The line should start with Set TEST...

What does the Wbk variable contain, a string or a workbook object? If it is a string then Workbooks(Wbk).Sheets("Position List").Range("Holding_Index") still returns a range, not necessarily a numerical value...

What is Sec_Name, a range variable?

On the whole, there are an awful lot of names and variables in this code. A lot of things might need to be changed. Maybe try stepping through the code and checking at that line to see what all those different components evaluate to. Or try to accomplish this in a less complex way!

 

[BigDelGooner]

Hi guys

Sorry for the delay I was out of the office.

Issue now sorted and thank you for your feedback.

Cheers