Hello I copied the macro "Create a summary worksheet from all workbooks"
from the Ron De Bruin site. Macro works (of course) except it does not add a
link to the worksheet.
So I'm obviously doing something wrong . below is the section of the macro
that is not working for me but I do not know how to corcect it. thanks in
advance
For Each Sh In Basebook.Worksheets
If Sh.Name < Newsh.Name And Sh.Visible Then
ColNum = 1
RwNum = RwNum + 1
'Copy the sheet name in the A column
Newsh.Cells(RwNum, 1).Value = Sh.Name

For Each myCell In Sh.Range("A1") ' ("A1,D5:E5,Z10")
'<--Change the range
ColNum = ColNum + 1
Newsh.Cells(RwNum, ColNum).Formula = _
"='" & Sh.Name & "'!" & myCell.Address(False, False)
Next myCell

After I run the macro my summary looks like this - columns A has the names
of the sheets in column B there is a 0 and no link to the sheet
2008 Complete 0
2008 Product Catalog Price List 0
Consumable Parts Price List 0
US Instrument Price List 0
CD Instrument Price List 0
FLEXChip airport 0
International ACity airport 0
International ACity LIMS&AE airport 0
International ACity GxP airport 0
International C airport 0
International Q airport 0
International TCity airport 0
International TCity GxP airport 0
International X airport 0
International XCity airport 0
International XCity Plus Pkg airport 0
International 2000 airport 0
International 3000 airport 0
International 3000 GxP airport 0