Run a Macro By Clicking a Named Range

Hi,

Me yet again.

Ok... this may be pretty simple but I'd be damned if I can work it out.

I have a macro that creates a named range at the bottom of a list and hides rows 13:64. (Code below)

Please Login or Register  to view this content.

I also have another macro that should when "Please Click To see more" is clicked unhides rows 13:64, and replaces "Please Click to see more" with "see less" (code below)

Please Login or Register  to view this content.

The issue I am having is I would like the user to click the relevant named range (SEELESS) to hide rows 13:64 or (PLEASECLICK) to unhide rows 13:64 on the worksheet.

Actually to add a spanner in the works the list above the named ranges can vary some could be 20 lines some could be 50 so ideally I just want to hide anything after line 13 and above (PLEASECLICK)

I know this is a workbook change event and I've tried some bits of code but I can't seem to get it working, but it could be the Macro's contradicting each other?

Any help would be greatly appreciated.

Right click the "Bible" sheet, select "View Code" and paste the following:

Please Login or Register  to view this content.

Call HideRows to set up the initial hiding and create a hyperlink on the cell. Then you should be able to toggle the visible rows by clicking the hyperlink. Does that achieve what you want?

WBD

OK. I saw your original had ".Offset(0,0)" which is superfluous but perhaps this:

Please Login or Register  to view this content.

Make sure this is in the "Bible" sheet code window and not a separate module.

WBD

You need to prefix with the code name of the sheet. For example:

Please Login or Register  to view this content.

But replace Sheet1 with the code name of the sheet (taken from the tree view on the left). It's probably not "Bible" since that's the name of the sheet; not the code name. If in doubt, press Ctrl+G and type this in the immediate window and hit Enter:

Please Login or Register  to view this content.

That will give you the right prefix to put in front of ".HideRows"

WBD