Auto saving date

[tony_d]

In my spreadsheet in E1 is yesterday date in this style 31/07/2019 is there a way of adding to my macro a way to save as T/P5 August 2019/31.07.2019 Contact Finance

 

[sykes]

Depends - how about posting your macro?

 

[tony_d]

Sub Macro4()
'
' Macro4 Macro
'

'
Sheets("Figures").Select
Cells.Select
Range("C1").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Closed Figures").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Team Daily Closures").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Contact Finance Recieved").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Monday Reporting").Select
Cells.Select
Range("C1").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"T:\11. Admin Support Team\11. Contact Finance Reporting\CE Contact Finance Reports\Contact Finance Figures Template.xlsm"
Sheets("Figures").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=Today()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Close

End Sub