Buenos días,

He copiado el código que describes para crear citas en excel desde outlook (mil gracias) pero tengo un problema. Si en la columna de excel introduzco una fecha del año 2.011 no tengo problema, funciona todo ok, pero si introduzco una fecha de otro año (por ejemplo 2.012) no se crea la cita en outlook. ¿alguna solución?. Mil gracias.

Public Const Clave As String = "No"
Public Sub EstablecerCitasEnOutlook()
Dim nOutlook As Object, Cita As Object, _
Fila As Integer, uFila As Integer
uFila = Range("a65536").End(xlUp).Row
Set nOutlook = CreateObject("outlook.application")
For Fila = 2 To uFila
If Range("k" & Fila) <> Clave Then
Set Cita = nOutlook.CreateItem(1)
Cita.Subject = ("Llamar a " & Range("b" & Fila).Value & Range("c" & Fila).Value & Range("d" & Fila).Value & Range("e" & Fila).Value)

Cita.Start = Format(Range("g" & Fila).Value, "h:mm AM/PM") & _
Format(Range("f" & Fila).Value, "mm/dd/yyyy")
Cita.End = Format(Range("h" & Fila).Value, "h:mm AM/PM") & _
Format(Range("f" & Fila).Value, "mm/dd/yyyy")

Cita.ReminderMinutesBeforeStart = Format(Range("i" & Fila).Value)
Cita.ReminderPlaySound = True
Cita.Save
Range("k" & Fila) = Clave
End If
Next
' nOutlook.Quit
Set Cita = Nothing
Set nOutlook = Nothing
End Sub