Hide/Unhide macro

[leojez]

Hello,

I have the following macro that hides selected rows in a table when clicking a shape assigned to the macro:

Sub Trade_History_Collapse_Table()
'

Range("TableWatchList5911925[#All]").Select
Selection.EntireRow.Hidden = True

End Sub

This works fine. However, I want to add the following so when the same shape is clicked it unhides the selected rows:

Selection.EntireRow.Hidden = False

I can't seem to figure it out, Any help much appreciated!

Thanks.

 

[leojez]

Select the shape & in the name box (to the left of the formula bar enter the name of the table (without the word table) & then you can use

Sub Trade_History_Collapse_Table()
   With ActiveSheet.Shapes(Application.Caller)
      With Range("Table" & .Name & "[#All]")
         .EntireRow.Hidden = Not .EntireRow.Hidden
      End With
   End With
End Sub

Amazing, that works really well! Thank you!!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[leojez]

Select the shape & in the name box (to the left of the formula bar enter the name of the table (without the word table) & then you can use

Sub Trade_History_Collapse_Table()
   With ActiveSheet.Shapes(Application.Caller)
      With Range("Table" & .Name & "[#All]")
         .EntireRow.Hidden = Not .EntireRow.Hidden
      End With
   End With
End Sub

Amazing it works really well - thanks!

 

[Fluff]

I know, you said that in post#11