Sub SaveBook() 'Saves the workbook If Range("checksave").Value = 3 Then MsgBox ("Created") ActiveWorkbook.SaveAs Filename:=Range("path").Text & Range("filename").Text On Error GoTo Err ::::My code here Else: MsgBox ("You must enter a MID and Customer ID and Business Name before saving.") Exit Sub End If Err: MsgBox ("You must enter a MID and Customer ID and Business Name before saving.") Worksheets("Dashboard").Shapes("Rounded Rectangle 50").Delete End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.