currentFilename = ThisWorkbook.Name
filename = currentFilename & filename
i have the below code which allows me to save the file as the contents of the cell.
Sub CloseandSave()
Dim filename As String
filename = Worksheets("Sheet1").Range("F3").Value
ActiveWorkbook.Save
ActiveWorkbook.SaveAs filename:="S:\NAZIM" & Path & "\" & filename & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ThisWorkbook.Saved = True
Application.Quit
End Sub
my question is how do i get it to keep the current file name and just add the contents of the cell to the end of it?
please make it as simple as possible, i dont know to much about this :|
thanks alot!
