Question on a Checkbox

[menor59]

Heres My Code

Sub CheckBox1_Click()
Call UnProtectAll
If Me.CheckBox1.Value = False Then
Range("H2").Interior.Color = 5296274 'green
    Me.Tab.Color = 5296274
Range(ActiveCell.Address).Name = "StartCell"
Clear_DataQuote
Else
Range("H2").Interior.Color = 255 'red
    Me.Tab.Color = 255
Range(ActiveCell.Address).Name = "StartCell"
Clear_DataQuote
End If
Call ProtectAll
End Sub

This is in the code for each worksheet.

What id like to do is if its Checked add a - before the Sheetname in question, and if its unchecked remove the - from the sheetname, keeping the name intact . Basically add a - before the name and remove the - after the name.

 

[AlphaFrog]

[color=darkblue]Sub[/color] CheckBox1_Click()
    [color=darkblue]Call[/color] UnProtectAll
    [color=darkblue]If[/color] Me.CheckBox1.Value = [color=darkblue]False[/color] [color=darkblue]Then[/color]
        Range("H2").Interior.Color = 5296274    [color=green]'green[/color]
        Me.Tab.Color = 5296274
        [color=darkblue]If[/color] Left(Me.Name, 1) = "-" [color=darkblue]Then[/color] Me.Name = Mid(Me.Name, 2)
    [color=darkblue]Else[/color]
        Range("H2").Interior.Color = 255    [color=green]'red[/color]
        Me.Tab.Color = 255
        Me.Name = "-" & Me.Name
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    Clear_DataQuote
    ActiveCell.Name = "StartCell"
    [color=darkblue]Call[/color] ProtectAll
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[menor59]

You Are the Man!!!!