Hello to all.
how can I do this:
startup of the workbook should appear a msgbox:

what format you want to file, .xls or .xlsx?
then a data validation to choose which then has to change this part of the macro:

'================================================================================================
'questa la nuova parte aggiunta

estensione = ".xls" ' xls or xlsx

sNomeFile = sPath & "\" & sWB & " - " & nSfx & estensione 'con numero progreessivo

If estensione = ".xls" Then
wsDest.SaveAs Filename:=sNomeFile, FileFormat:=56 '<<< per formato xls
Else
wsDest.SaveAs Filename:=sNomeFile, FileFormat:=51 '<<< per formato xslx
End If
'================================================================================================

A greeting,
max_max