msgbox startup

[max_max]

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

[dflak]

The attached workbook has code to make the selection at the end instead of the beginning is this OK? Your workbook must be macro-enabled for this to work.

First there is the user form. To get the form into your workbook, download GetExtension.zip to a place on your hard drive and unzip it. Then open your workbook and press ALT-F11. Then go to File -> Import and navigate to where you saved the files. Import GetExtension.frm

While you have the VB editor open, do the following:

Click on ThisWorkbook and add the following code to run when the workbook is closed.

Please Login or Register  to view this content.

This code opens the form.

Then Insert a regular module and use the following code

Please Login or Register  to view this content.

Take out my code for closing the workbook and put in your own.

The from has a caption and a button, both labeled in English. You can change these captions. Click on the form to change the form caption, and click on the button to change the button caption.

[max_max]

Thanks you Dflak.
Your solution is optimal.
A greeting.
max_max