#### 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: