VBA Save As Function

Just got home David, try this under the button_click() event :

Code:

---

With CommonDialog1
    .ShowSave
    .Filter = "*.xls"
    .DialogTitle = "save as example"
End With
getfiletosave = CommonDialog1.FileName
Excel.Workbooks(0).Item.SaveAs getfiletosave

---

hope this helps.
Alex

For your one, try

Code:

---

ThisWorkbook.SaveAs CommonDialog1.FileName

---

instead of the last line.

checked 3 ms sites for the filter bit, and just realised the above is c**p, maybe someone else can shed some light on this part, but the above will save your files.

This is the code I have. This works too.

Code:

---

Private Sub CommandButton1_Click()
CommondDialog1.ShowSave
ActiveWorkbook.SaveAs FileName:=CommonDialog1.FileName
End Sub

Private Sub UserForm_Intitialize()
CommonDialog1.Filter = "Excel Spreadsheet(*.xls)|*.xls|"
CommonDialog1.FilterIndex = 1
End Sub

---

This works. Now, when the Save As dialog comes up, and I hit cancel, it comes up with a debug error message. Why is that?

You have a line :

Code:

---

CommonDialog1.CancelError = False

---

which you can add in your CommandButton1_Click() part, or you an do a..

Code:

---

If CommonDialog1.Cancel = True Then
  'code to cancel here
End if

---

statement. Note I have tried this before posting this time!

Alex Read