Save as Cell to Loctacion

[Mr_Adams]

I am trying to come up with a VBA that save the Worbook as A cell Value "V4".
The following works great in a standard workbook but I can't seem to get it to work in Template.
This is what I have so far

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisFile = Range("V4").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
ActiveWorkbook.SaveAs Filename:="M:InvoiceInvoices" & ThisFile
End Sub

I have also tried

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisFile = Range("V4").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
ActiveWorkbook.SaveAs FileName:="M:InvoiceInvoices" & ThisFile & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

Both seem to wotk for Workbooks, but not Templates

Any Ideas?

 

[Mr_Adams]

Solution

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' ********************************************************
' * Forces Database update and saves new file as the Invoice Number *
' ********************************************************
Application.Run "commit"
ActiveWorkbook.SaveAs FileName:="M:\Invoices\Invoices\" & Range("V4")
End Sub

 

[LTunnicliffe]

Is this the longest time between the first two posts in history... 6 months!!! Good job for solving your problem Mr_Adams.

LT