DAVE PETERSON SAYS TO USE THIS: BUT HOW DO I SET IT UP? ALT-F11 and THEN
WHAT?
dim wks as worksheet
set wks = worksheets("somesheetnamehere")
wks.copy 'copies to a new workbook--single sheet
'save the newly created single sheet workbook.
with activeworkbook
.saveas filename:="C:\..."
.close savechanges:=false
end with