shp.Table.Cell(i, c).Shape.TextFrame.TextRange.Text = lPage & "-" & lEndPage
shp.Table.Cell(i, c).Shape.TextFrame.TextRange.ActionSettings(ppMouseClick).Action = ppActionHyperlink shp.Table.Cell(i, c).Shape.TextFrame.TextRange.ActionSettings(ppMouseClick).Hypterlink.Subaddress = lPage |