¿Como defino un rango discontinuo?

hola, Gabriel ! (en tanto regresa Juan) :D

el siguiente procedimiento (mismo evento) funcionaria mejor si el usuario no selecciona mas de una celda -?-
(salvo que tu macro de calendaro "trabaje" exclusivamente sobre la ActiveCell) -?-
columna H (# 8) a partir de la fila 13 y en saltos de 41 filas...

Private Const Fila_inicial As Byte = 13, Saltos As Byte = 41, Col_cal As Byte = 8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> Col_cal Or Target.Row < Fila_inicial Then Exit Sub
If (Target.Row - Fila_inicial) Mod Saltos = 0 Then abrir_calendario
End Sub

saludos,
hector.

__ la consulta original __
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim rngFechas As Range
> Set rngFechas = Range("h13,h54,h95,h136,h177,h218,h259,h300,h341,h382,h423,h464,h587,h628,h669,h710,h751,h792,h833,h874,h915,h956,h997,h1038,h1079,
>h1120,h1161,h1202,h1243,h1284,h1325,h1366,h1407,h1448,h1530,h1571,h1612,h1653,h1694,h1735,h1776,h1817,h1858,h1899,h1940,
>h1981,h2022")
> If Union(Target, rngFechas).Address = rngFechas.Address Then _
> Call abrir_calendario
> End Sub
>
> Es una macro copiada de otro lugar que permite cuando pulsas sobre la celda en que quieres introducir una fecha
> desplegarse un calendario y elegir la fecha que desees.
> Para un numero grande de celdas no funciona (...)

... facilidad... y... claridad (...)