Consulta sobre Calendario Automatico

[Invitado CSI1981]

Buenas tardes

Encontre en el foro esta macro para un calendario automático

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range): On Error GoTo Sal
   Unload Calendario
   If UCase(Sh.Cells(5, Target.Row)) Like "*FECHA*" And _
      Target.Row > 1 And _
      Target.Cells.Count = 1 And _
      IsEmpty(Target.Offset(-1, 0)) = False Then
      Calendario.Top = ActiveCell.Top + 160
      Calendario.Left = ActiveCell.Left + 18
      Calendario.Show
   End If
Sal:
End Sub
 

Necesito modificarla para que solo se aplica ciertas celdas y filas

Por ej

en la columna C y fila 4

Y en mi planilla las celdas con la palabra fecha estan en la columna A

Desde ya muchas gracias a quien pueda orientarme

Saludos

[Gerson Pineda]

Hace 3 horas, CSI1981 dijo:

en la columna C y fila 4

Una sola celda
If Target.Address(0, 0) = "C4" Then Calendario.Show

Para rango
If Not Application.Intersect(Target, Range("C4:C10")) Is Nothing Then Calendario.Show

Solo adapta a tu archivo 

 

Saludos 

[Invitado CSI1981]

Gerson una consulta

la linea : 

If Target.Address(0, 0) = "C4" Then Calendario.Show

en que parte de la macro iria?

[JSDJSD]

Prueba y comenta

Prueba.xlsm