Necesito colocar el calendario en 10 columnas intercaladas y la forma que conozco no me sirve ya que puedo solo en dos

favor vuestra ayuda Muchas Gracias

El código que coloco en la hoja en cuestión es el siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rngFechas As Range

Set rngFechas = Range("a:a,b:b")

If Union(Target, rngFechas).Address = rngFechas.Address Then _

Call abrir_calendario

End Sub

Hola Karl34

Prueba a insertar un nombre para el rango que te interesa. Revisa el ejemplo del adjunto y relee las normas por favor.

Un saludo desde Vitoria

EventoColumnasDiscontinuas_io_121017.zip

EventoColumnasDiscontinuas_io_121017.zip