Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim FName As String Dim MacroBook As Workbook Dim OutputBook As Workbook Set MacroBook = ActiveWorkbook FName = Sheets("INSTRUCTIONS").Range("C2").Value & " " & Sheets("INSTRUCTIONS").Range("C3").Value If FName = " " Then MsgBox ("Enter the Vendor Name and Product Line"): Exit Sub Set OutputBook = Workbooks.Add Application.DisplayAlerts = False OutputBook.SaveAs Filename:="F:\buying\catalog production\2013\" & FName & ".xls" MacroBook.Sheets(2).Copy OutputBook(After:=wbOpen.Sheets("Sheet1"))
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.