K
KennyD
Found this macro by Dave Peterson and want to modify it so that I can do the
following: Select the ActiveSheets and Copy them to a new workbook - BUT I do
not want to copy the formulas. Only want to copy the values, formatting (row
height and column width), sheet names, hyperlinks. But NOT the formulas.
The formulas that do all of the lookups are pretty intense and the copies
just need to display the information in the nice pretty way I have it set up
along with the hyperlinks between the sheets. At any rate, here's the
original macro:
Option explicit
sub NewWorksheet
dim wks as worksheet
for each wks in activewindow.selectedsheets
wks.copy 'to a new workbook
with activesheet
.parent.saveas filename:="C:\temp\" & .name & ".xls", _
fileformat:=xlworkbooknormal
.parent.close savechanges:=false
end with
next wks
end sub
following: Select the ActiveSheets and Copy them to a new workbook - BUT I do
not want to copy the formulas. Only want to copy the values, formatting (row
height and column width), sheet names, hyperlinks. But NOT the formulas.
The formulas that do all of the lookups are pretty intense and the copies
just need to display the information in the nice pretty way I have it set up
along with the hyperlinks between the sheets. At any rate, here's the
original macro:
Option explicit
sub NewWorksheet
dim wks as worksheet
for each wks in activewindow.selectedsheets
wks.copy 'to a new workbook
with activesheet
.parent.saveas filename:="C:\temp\" & .name & ".xls", _
fileformat:=xlworkbooknormal
.parent.close savechanges:=false
end with
next wks
end sub