master_of_none
Board Regular
- Joined
- Jan 29, 2003
- Messages
- 62
I need help putting another code in the same sub.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set rng = Range("O2:O501")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value <> "X" Then
With Target
.Value = "X"
With .Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 3
End With
Plus this one
Set rng = Range("P2:P501")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value <> "X" Then
With Target
.Value = "X"
With .Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 5
End With
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set rng = Range("O2:O501")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value <> "X" Then
With Target
.Value = "X"
With .Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 3
End With
Plus this one
Set rng = Range("P2:P501")
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Value <> "X" Then
With Target
.Value = "X"
With .Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = 5
End With
Last edited: