Referencing sheets in another workbook by codename using VBA [duplicate]

Answer 1

I could call a workbook "I LIKE TEA" but InputBook.I LIKE TEA.Columns(1) wont cut it.

Abstract the name away with a const or:

public enum InputSheets
   LINES = 2,
   GARMENTS = 4
end enum

to allow:

InputBook.Sheets(InputSheets.LINES).Columns(1)

or

MyGetSheetFunction(InputBook, InputSheets.LINES)

You could take this further and use a wrapper class.

Answer 2

You can "hack" a reference to another workbook sheet code name by:

Sub UseCodeNameFromOutsideProject()
    Dim WS As Worksheet
    With Workbooks("InputBook .xls")
        Set WS = _
            .Worksheets(CStr(.VBProject.VBComponents("Lines").Properties(7)))
        debug.print WS.Name
    End With
 End Sub

Your WS object is now set to the sheet which has the codename "Lines" in this example.

---

Original inspiration is here.