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

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

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