Target columns help

[HYKE]

Hi,

Kindly point out what is wrong in this code and what should be the right code..

Thanks millions!!!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Columns = ("5;9;13;17") Then
Cancel = True
UserForm1.Show
End If
End Sub

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Then
Cancel = True
UserForm1.Show
End If
End Sub

 

[lenze]

I, for some reason, like to use Select Case for this type of choice

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 5,9,13,17
Cancel = True
UserForm1.Show
Case Else:
End Select
End Sub

lenze

 

[HYKE]

Thank you guys so very much.....Why I haven't of these earlier.....