How to evaluate an workbook object by its name in code?

[prabha_friend]

Declaration:
Private wbAcctFees As Workbook

Public Function mac()
Set wbAcctFees = Workbooks.Open(frmPart1.txtAcctFees.Value)
End Function

Formula in a Cell:
=VLOOKUP(A2,INDIRECT("["&GetFileNamefromCode("wbAcctFees")&".xlsx]gen_rpt'!$A:$K"),11,)

Public Function GetFileNamefromCode(filevariable As String) As String
GetFileNamefromCode = Evaluate(filevariable).Name
End Function

Why its not working? and Whats the solution for this? Thanks in advance.

 

[RoryA]

Restating the question doesn't really help. I already said you can't do that directly and suggested alternatives but you keep ignoring them, so I'm leaving you to the posters in the other forum.