Sorry but is still does not work...
is goes to the last folder viewed in explorer and also does not save anything, it stays in the same excel file thas as the initial code...

I have the code in a module, is that ok?

[vba]
Option Explicit
Sub SaveDocumentAs()
Dim vName As Variant
Dim sName As String
Dim chdir As String
Dim sFilter As String
sFilter = "TITLE (*.xlsm), *.xlsm"
ChDrive "F:"
chdir = "F:\Alualpha sync\Ficha de Produto\testes_saves\"
vName = Application.GetSaveAsFilename()
If TypeName(vName) = "Boolean" Then
'user pressed cancel
Else
sName = VBA.Right(vName, VBA.Len(vName) - VBA.InStrRev(vName, Application.PathSeparator))
sName = VBA.Left(sName, VBA.InStrRev(sName, ".") - 1)
form_principal.Produto.Value = sName
End If
End Sub[/vba]