We value your feedback.
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.
|vba search, delete, and enter 0 for entire sheet row A||13||29|
|Micosft Excel/VBA - Clear content of cell when adjoining cells have content||6||36|
|Macro problems with Excel file||6||28|
|POPUP CHART TO DISPLAY FOR 5 SECONDS WHEN WORKBOOK OPENS||8||25|