mykal66
07-19-2011, 11:26 AM
The code below works to autoname a file based on certain cells within a worksheet but rather than save in the background is it possible to bring up the save as dialogue box with the file name already populated?
Sub Save()
Sheets("Letter Creation").Select
Range("c3").Select
a = ActiveCell.Value
Range("c5").Select
b = ActiveCell.Value
Range("b16").Select
c = ActiveCell.Value
q3 = a & " " & b & " " & "(" & c & " " & d
ActiveWorkbook.SaveAs Filename:=q3 & Format(Date, "mmmm dd yyyy") & ")" & ".xls"
End Sub
Thanks
Sub Save()
Sheets("Letter Creation").Select
Range("c3").Select
a = ActiveCell.Value
Range("c5").Select
b = ActiveCell.Value
Range("b16").Select
c = ActiveCell.Value
q3 = a & " " & b & " " & "(" & c & " " & d
ActiveWorkbook.SaveAs Filename:=q3 & Format(Date, "mmmm dd yyyy") & ")" & ".xls"
End Sub
Thanks