S
shootz
I am trying to open a save from button 3 for just the worksheet not the whole
workbook. I am really new at this I have two tries..help
Private Sub CommandButton3_Click()
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsoft Excel
Workbook (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fileSaveName
End Sub
or
Dim vResponse As Variant
vResponse = Application.GetSaveAsFilename( _
FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
Title:="Please select your file")
ActiveWorkbook.SaveAs Filename:=fileSaveName
If vResponse <> False Then
MsgBox Prompt:="You selected '" & vResponse & "'.", _
Buttons:=vbOKOnly Or vbInformation
Else
MsgBox Prompt:="You cancelled.", _
Buttons:=vbOKOnly Or vbInformation
End If
End Sub
or
workbook. I am really new at this I have two tries..help
Private Sub CommandButton3_Click()
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsoft Excel
Workbook (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fileSaveName
End Sub
or
Dim vResponse As Variant
vResponse = Application.GetSaveAsFilename( _
FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
Title:="Please select your file")
ActiveWorkbook.SaveAs Filename:=fileSaveName
If vResponse <> False Then
MsgBox Prompt:="You selected '" & vResponse & "'.", _
Buttons:=vbOKOnly Or vbInformation
Else
MsgBox Prompt:="You cancelled.", _
Buttons:=vbOKOnly Or vbInformation
End If
End Sub
or