I have a number of functions that reference sheets which are only used for lookup, a typical example of this code is;
Public Function HaeLaitteet(BoxAr, prdFam)
Application.ScreenUpdating = False
On Error Resume Next
srcSheet = ActiveSheet.Name
'Sheets("My_Sheet_Name").Select
For j = 2 To...