Sub SaveAsExample() Dim FName As String Dim FPath As String FPath = "C:\" FName = Sheets("Sheet1").Range("C10").Text & " " & Sheets("Sheet1").Range("C11").Text ThisWorkbook.SaveAs FileName:=FPath & FName & Format(Date,"ddmm") End Sub
Sub SaveAsExample() Dim FName As String Dim FPath As String FPath = "C:\" FName = Sheets("Sheet1").Range("C10").Text & " " & Sheets("Sheet1").Range("C11").Text ThisWorkbook.SaveAs FileName:=FPath & FName & Format(Date,"ddmm") End Sub
Last edited by Aussiebear; 04-10-2025 at 03:36 PM.
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber