Reply to thread

Message: [QUOTE="Jean-Guy Marcil, post: 5870605"] You did not mention whether you are working with a Protected form or not. I will assume that you are not. Here is one way of doing things: Add a borderless column to the left of the table. For each row were you want to toggle the visual display, insert a checkbox from the Controls Toolbox (View > Toolbars...). Each checkbox will be automatically named CheckBox1, CheckBox2, CheckBox3, etc. Use the following code. If you do not want the area behind the checkbox to be shaded, you will need to modify the code. Make sure that the name of each sub eflects the name of the checkbox in your table. Also, do not forget to toggle Design mode (The first button on the Controls Toolbox toolbar) or the code will not run (and the check mark will not appear in the box). Private Sub CheckBox1_Click() ToggleFill CheckBox1.Value End Sub Private Sub CheckBox2_Click() ToggleFill CheckBox2.Value End Sub Private Sub CheckBox3_Click() ToggleFill CheckBox3.Value End Sub Sub ToggleFill(boolToggle As Boolean) If boolToggle Then With Selection.Rows(1).Range.Shading .Texture = wdTextureNone .BackgroundPatternColor = wdColorAutomatic .ForegroundPatternColor = wdColorLightYellow End With Else With Selection.Rows(1).Range.Shading .Texture = wdTextureNone .BackgroundPatternColor = wdColorAutomatic .ForegroundPatternColor = wdColorWhite End With End If End Sub [/QUOTE]