[size=7]Help me Help me[/size]

[smm3]

Help me Help me

I have this great code, but I can;t figure out how to add more columns to it.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
If Target.Value = "Q" Then
With Target
.Value = ""
End With

Else
With Target
With Selection.Font
.Name = "Wingdings 2"
.Size = 22
End With
.Value = "Q"
End With
End If
Cancel = True
End If
End Sub

 

[VoG]

Which columns do you wish to add?

 

[Joe Was]

"If Target.Column = 2 Then " for only Column 2.

If (Target.Column = 2 Or Target.Column = 4) Then for ether Column 2 or 3.

If (Target.Column = 2 And Target.Column = 4) Then for both Column 2 and 3.

If (Target.Column > 2 And Target.Column < 11) Then for any Column 3 through 10.

 

[smm3]

I'm trying to get columns 3 throught 11, but I can't get the last post to work at all. I tried all three examples.

Vickie

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <= 2 Or Target.Column > 11 Then Exit Sub
    If Target.Value = "Q" Then
    With Target
        .Value = ""
        End With

        Else
        With Target
        With Selection.Font
             .Name = "Wingdings 2"
            .Size = 22
        End With
    .Value = "Q"
    End With
    End If
    Cancel = True
    End If
End Sub

 

[smm3]

Nope, that didn't work either. When I try to use it this is highlighted in yellow.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Vickie

 

[Scott Huish]

Why are you using Selection? Why are your erasing a Q then putting a Q back later? What is this supposed to do exactly?

 

[smm3]

I don't even know what Selection pertains to and I changed the Q to a P and that let me put a checkmaark in the cell just be clicking in it twice.

Vickie

 

[Scott Huish]

Does this do what you want?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim d As Range
Set d = Intersect(Range("C:K"), Target)
If d Is Nothing Then Exit Sub
With d
    .Value = "P"
    .Font.Name = "Wingdings 2"
    .Font.Size = 22
End With
End Sub

 

[smm3]

Hotpepper!

Works great! But it doesn't seem fair. You do all the work!

You'll never know how much I appreciate your help!!!!!!

Vickie