Try this and let me know if it makes a difference:

Public Function GetValueFromSheet(C As String, L As
Integer) As String
FName = ActiveSheet.Cells(1, 4).Value
SName = ActiveSheet.Cells(1, 5).Value
GetValueFromSheet = Workbooks(FName).Worksheets.(SName).Range(C
L).Value
End Function

- Piku

--
Message posted from http://www.ExcelForum.com