New Question to Hide Rows with Toggle button and auto adjust for additional rows

This code will get your the row number of your toggle button even after you add rows above it.
You can probably handle it from there.
Good Luck.

Dim ToggleButtonRow As Long
ToggleButtonRow = ToggleButton1.TopLeftCell.Row

How about naming the range? for example click on B13, and where it shows B13 at the top/left, type in a name.... say "Project1Notes" then

.Range(.Rows(13), .Rows(13)).Hidden = True

becomes

.Range("Project1Notes").EntireRow.Hidden = True

EDIT: I see you have it named already, so you can change my name to just Notes and it should work... when you insert more, the named range moves, so it should always work

Phoenix, You are welcome, glad we could help you solve the problem
(and yes Man)
p.s. Thanks for the rep!

The line you are getting the error on is, at the time of the error, referring to the Documents List sheet and it's trying to hide the range named Notes1, which according to your name manger, is on a different sheet.

Phoenix... the problem is that you are making the code do the range("Notes").entirerow.hidden = true run for each ws in the workbook. The range only exists on one sheet.

Why for each ws in workbook? The ranges only exist on that one sheet...

remove for each ws loop, it is all over your code, why? Using ToggleButton2_Click() as example, code should just look like this I think:

Private Sub ToggleButton2_Click()

Application.ScreenUpdating = False
With ToggleButton2
    If .Value = True Then
        Range("Notes2").EntireRow.Hidden = True
        .Caption = "Show Notes"
    Else
        Range("Notes2").EntireRow.Hidden = False
        .Caption = "Hide Notes"
    End If
End With
Application.ScreenUpdating = True

End Sub

You have some cleaning up to do on the others, but it should be pretty easy now that you have a working example. Glad we could help out again

Hi - Just a thought here of another approach for showing & hiding notes on a sheet.

1. Create a text box and name it 'Notes.
2. Set its properties to 'Don't move or resize with cells'.
3. Use this macro to toggle it visible or not.
4. Assign the macro to a command button on the sheet(s).

Sub Show_Hide_Notes()
   ActiveSheet.Shapes("Notes").Visible = Not (ActiveSheet.Shapes("Notes").Visible)
End Sub

Advantages:
a) It will not be affected when rows/columns are added or removed.
b) Each sheet can have its own 'Notes' text box; the macro will work with them all.

Note:
When you initially create the textboxes using the 'Insert' menu, they are automatically named 'Textbox 1', 'Textbox 2' etc.
The following utility subroutine can be used to rename each one to just 'Notes' (or whatever you want).
Tip: Make the first text box and rename. Then just copy it and paste onto other sheets.

Sub Utilty_Change_Name_Of_Objects()
'
' Utility macro to change name of selected object... (TextBox, Buttons, etc.)
'
   Dim newName As String
   newName = InputBox("Enter name for this object:")
   If newName <> "" Then Selection.Name = newName
End Sub

A sample program is attached to show this concept - notes are on 2 sheets with 1 macro to show/hide each.
Attachment 407183

Food for thought - my 2¢ worth.
- Stu