Hi guys, topic title says all. 2 days frustrating work for a simple problem.

Is here an expert, who could help me.

Please PM me.

I never programmed with VBA for word, means, I absolutely have no idea. Everything is completely new to me.

I want to make a special SaveAs Funktion.

I have 2 Makros:

FIRST MAKRO:

Sub SaveAs ()
Dim dialog As Object
Dim pfad As String
Dim datei As String
path = "C:\Test\"
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = path
.Show
End With
If dialog <> False Then dialog.Execute
End Sub

This makro works and gives me the desired path C:\Test at once.

SECOND MAKRO:

I now want to type in the file name in a message box and then it should not directly store in C:\Test, I want to see the same window as in MAKRO 1, so I can select in c:\Test another folder.

Hope, I have explained it correctly, but I am absolutely now computer freak

Here is the second one:

Sub SaveAs_Special ()
'
' Macro SaveAs Special'
'
Dim FileName As String
'
FileName = InputBox("Please Enter File Name" & vbNewLine & "Use following Format:",
Space(3) & "Speichern unter ...")
'
Select Case StrPtr(FileName)
Case Is = 0
MsgBox "You 'klicked' Exit." & vbNewLine & "Example Text!!!"
'ActiveDocument.Close
Exit Sub

Case Else
ActiveDocument.SaveAs FileName:="C:\Test\"
& Format(Date, "dd mm yyyy") & " – Letter to " & Filename & ".doc"

Exit Sub
End Select
End Sub