I had looked at the attachment briefly before I left for Florida to babysit the grandkids
WS 'Lists' is missing, and I never went through the code to see if it was required
Function GetLastDate() As String GetLastDate = Excel.Workbooks(WorkbookName).Worksheets("Lists").Cells(1, 11) End Function