Help.... Assistance with VBA Code

[Bilkhu1980]

Hi all

I hope you are all well.... I have a question if anyone could assist.

I have a Excel worksheet for which i have built in some VBA code (shown Below) to show a pop up Calender via a Macro for a selected cell range.

If I was to extend the cells for a wide range of cells for example...

currently the range is AF5:AF10000, I want to add further range of cells like AG5:10000 and AR5:AR10000 and may be a couple more....

My question is how do I extend the Ranges but only on certain Columns (as above)???????


Much appreicated if someone can help....


-----------------------------------------------------------------------------------------------------------------
Private Sub DTPicker21_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)


End Sub




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


If Intersect(Target, Range("AF5:AF10000")) Is Nothing Or Target.Cells.Count > 1 Then
Exit Sub
Else
Run ("OpenCalendar")
End If


End Sub
-------------------------------------------------------------------------

 

[RickXL]

Hi,

The basic principle is like this:

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

    If Not Intersect(Target, Union(Columns("A"), Columns("D"), Columns("F"))) Is Nothing Then
        Debug.Print "Found"
    Else
        Debug.Print "Not Found"
    End If

End Sub

I used Columns() and specified columns A, D and F but you could use any range definition, e.g. Range("AF5:AF10000"), instead.

 

[Bilkhu1980]

Many thanks RickXL

I will try and get back to you....

Much appreicated