Regarding the code below. Instead of text files, how would you make the filefilter Excel? Both 2007/2010
TextFilename = Application.GetSaveAsFilename(InitialFileName:="New_Name", _
filefilter:="Text Files (*.txt), *.txt", _
Title:="Enter a name for the text file and choose a folder in which to save the text file.")
If TextFilename <> False Then
'Copy the worksheet containing text and number data to a new, temporary workbook.
ActiveWorkbook.SaveAs Filename:=DoleFilename, FileFormat:=xlText, CreateBackup:=False