Solved: Sheet name in formula instead of caption

[anandbohra]

[vba]

Dim SheetName As String

With ActiveWorkbook.VBProject
SheetName = CStr(.VBComponents("Sheet3").Properties("Name"))
End With

Sheet1.Range("R2").FormulaR1C1 = "=VLOOKUP(RC[-17],'" & SheetName & "'!C1:C17,10,0)"
[/vba]

Thank you sir

This is exactly what I wanted