Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub SaveAs()
- Dim IntialName As String
- Dim sFileSaveName As Variant
- IntialName = "Sample Output"
- sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsm), *.xlsm")
- If sFileSaveName <> False Then
- ActiveWorkbook.SaveAs sFileSaveName
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement