Sorry... the tiny icon is to the LEFT of File, not the right
--
Gary''s Student - gsnu200737


"Danny" wrote:

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