[vba]
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")
[/vba]
End Sub
[vba]
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")
[/vba]
End Sub
____________________________________________
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
Posting Permissions
Reply With Quote