Save As Problem

Dean,

First, be sure to go back to your post #1 above and add CODE tags around your posted code, as per forum rules. We don't want your thread to get moderated, ok? Like mohd showed in their post above, and demonstrated in my signature below.

Once you have a "method" that seems to be getting you close, try a forum/Google search on the main keywords to see what other "parameters" might be available, or to just view other examples of the method. IN this case, the keyword search would be for FileDialog(msoFileDialogSaveAs)...

This is one of the additional parameters you can add:

Dim FileSaveDLG As FileDialog
Set FileSaveDLG = Application.FileDialog(msoFileDialogSaveAs)
With FileSaveDLG
    .InitialFileName = "W:\Planning\"
    If .Show = -1 Then
        ActiveWorkbook.SaveAs .SelectedItems(1)
    End If
End With

You could even go further and have it fill in a suggested filename:

          .InitialFileName = "W:\Planning\" & "MyFile-" & Format(Date, "mm-dd-yy")