Your question, your audience. Choose who sees your identity—and your question—with question security.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Provides check button
strSheets = "Sheet2,Sheet3"
strCellAddress = "B5"
If Not Intersect(Target, [C4]) Is Nothing Then
Application.ScreenUpdating = False
With Target
If .Value = "P" Then
.Value = ""
For Each strSheet In Split(strSheets, ",")
Sheets(strSheet).Range(strCellAdress).Value = ""
Next
ElseIf .Value = "" Then
.Font.Name = "Wingdings 2"
.Value = "P"
For Each strSheet In Split(strSheets, ",")
Sheets(strSheet).Range(strCellAdress).Value = "Confidential"
Next
End If
End With
End If
Cancel = True
Application.ScreenUpdating = True
End Sub
Edited code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Provides check button
Dim strSheet As Variant, strSheets As String
Dim strCellAddress As String
strSheets = "Sheet2,Sheet3"
strCellAddress = "B5"
If Not Intersect(target, [C4]) Is Nothing Then
Application.ScreenUpdating = False
With target
If .Value = "P" Then
.Value = ""
For Each strSheet In Split(strSheets, ",")
Sheets(strSheet).Range(strCellAddress).Value = ""
Next
ElseIf .Value = "" Then
.Font.Name = "Wingdings 2"
.Value = "P"
For Each strSheet In Split(strSheets, ",")
Sheets(strSheet).Range(strCellAddress).Value = "Confidential"
Next
End If
End With
End If
Cancel = True
Application.ScreenUpdating = True
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
pls try
Open in new window
Regards