Macro button help!!

  • Thread starter Thread starter Neil Holden
  • Start date Start date
N

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.
 
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
 
Back
Top