...LEN(strPasswordPath) - INSTRREV(strPasswordPath, "\"))
'MSGBOX strPasswordPath & vbcrlf & strPassword & vbcrlf & strFileName
'********include error checking here to identify if excel opens correctly****
objExcel.Workbooks.Open strPasswordPath,,,, strPassword...