Automatic File Naming

[mezr]

Hello all,
I'm trying to rewrite some old VBA that had been used for automatically renaming a file. It no longer works since switching over to Office 2013. The existing code is as follows ...

______

Private Sub CommandButton3_Click()

ThisWorkbook.SaveAs Filename:=Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 12) _
& Sheet3.Range("A19").Text & "_" & Sheet3.Range("E4").Text

End Sub

______

In the end, the file name should look something like this - "fox-l2-frm1-111914-tml-timesheet_10-31-2014_John Smith" with the "10-31-2014" being the variable residing in A19, and "John Smith" being the variable residing in E4.

Thank you in advance for your suggestions.

 

[adam087]

I'm out. I've seen that error several times with MISSING references, but can't think of another cause. Apologies.

/AJ

 

[mezr]

Adam, I think we cross posted. I scrolled down and noticed a calendar control that was labeled as "MISSING". I unchecked it and it all seems to be working fine now. Thank you for guiding me to a solution!

 

[adam087]

Ah! Fantastic! Glad it got there.



/AJ