From what reference does fetchDIM(RS) come?

I am trying to get Goban Sayor's famous PowerPivot refresh VBA code working in my workbook, but I'm getting "Sub or Function not Defined" at this line:  1DimensionID = fetchDIM(RS).

It is highlighting specifically fetchDIM(RS). I am assuming that I am missing the VBA reference that contains fetchDIM(RS).

Can someone tell me which reference it is?