Help! Filename Checking Routine
Posted by Richard Winfield on December 06, 2001 8:35 AM
I have a current macro that saves the active worksheet to a new workbook with a single sheet, then saves that workbook with a filename taken from a cell on the worksheet. I am using Excel to create packing lists for shipments .The problem that I have is that occasionally I will have multiple packing lists created from the same sales order (which is the value that I must use as a file name) . I was wondering if there might be a macro or an addition to my current macro that could check the file name against the exiting filenames in the folder and request the user to input a different filename to save as if a duplicate filename is found. The current macro I am using is:
ThisFile = Range("d8").Value
ActiveSheet.SaveAs Filename:="C:\packing lists\" & ThisFile & ".xls"
Thanks in advance for any help you may be able to provide :)