Question: Export one sheet from a workbook
View Single Post
JBeaucaire's Avatar
JBeaucaire Posts: 5,377, Reputation: 5036
Software Expert
  
#5

May 1, 2012, 11:59 AM


Then you only need to change one little thing:

Code:
ActiveWorkbook.SaveAs Range("AD1").Value & ".xls", xlNormal


Also, you can shorten up your CleanAll macro to:

Code:
Sub CleanAll()
   Range("K1:N1,R1:U1,X1:AB1,J2:M4,P2:Q4,U2:W2,AA2:AB2,U3:V6,C5:G6,J5:Q6,W4:AB6,A8:AB10,A12:AB16,B21:F40,Q21:S40,B43:k52,B56:K61,B65:K68,A71:AB71,A73:AB73").ClearContents
End Sub
Helpful