VBA Save As Function

[alex_read]

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

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

hope this helps.
Alex