Okay, I've been searching all morning and I'm having trouble getting this code to work:
Sub CommandButton1_Click()MyBook = ActiveWorkbook.Name ' Retrieves the name of original WB.
Columns("A:A").AutoFit
Columns("B:B").AutoFit
Columns("C:C").AutoFit
Columns("D:D").AutoFit
Range("A5:D500").Select...