I am getting this message from the code below on the Set OpenSourceFile = ActiveWorkbook line. I have stepped through this code over and over for days and this part i just let it run past. But now it stops and i get this message.
I removed all break points compiled the project saved personal (file code is in). Closed and reopened excel. and still get it?
Public Function OpenSourceFile(ByRef dir As String, fileName As String) As Workbook
On Error GoTo hndl
If Not m_Debugging Then Debug.Print dir & "\" & fileName
Workbooks.Open fileName:=dir & "\" & fileName
Set OpenSourceFile = ActiveWorkbook
MsgBox "todo: error hndl"
m_CurrentErrorDesc = Error