Macro button help!!

[Neil Holden]

Hi, I have been asked to create a button, when pressed it ask to save as to a
specific location, once saves I then need to to save again to a specific
locaion.

Please help gurus.

Neil.

 

[Jacob Skaria]

Try the below macro

Sub Macro()
Dim intCounter As Integer, strFile As String
Do While intCounter < 2
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\"
.Show
strFile = .SelectedItems(1)
End With
ActiveWorkbook.SaveCopyAs strFile
intCounter = intCounter + 1
Loop
End Sub

If this post helps click Yes