Save workbook with a name mentioned in a cell
Hi Gary,
I'm not that familiar with Macro's is there an easy way to have this
explained, it is not clear to me of what you exactly mean?
Thanks
"Gary''s Student" wrote:
Hi Danny:
Re-package your macro into the workbook event form:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Danny's code
Cancel = True
End Sub
This goes in the ThisWorkbook code area, not in a standard module.
--
Gary''s Student - gsnu200737
"Danny" wrote:
Hi,
I have tried to use explaination from the community, but till know this did
not work.
Can someone advise me on the following?
I want to save a workbook with a refference in a cell, at the moment i use:
Private Sub Workbook_Save()
Dim rng As Range
Set rng = ActiveSheet.Range("M2")
ActiveWorkbook.SaveAs _
Filename:=rng.Value & ".xls", _
FileFormat:=xlWorkbookNormal
End Sub
This is working if i run it manually, but what do i need to do to activate
this when i click on the save buton?
Thanks
|