Quiero una macro para obtener el día laborable posterior a la fecha actual

·

Si fuera una función Excel sería esta

=DIA.LAB(HOY();1)

Y en VisualBsacic esta macro te lo pone en la celda A1

Sub SiguienteLaborabe()
[A1] = Application.WorksheetFunction.WorkDay(Date, 1)
End Sub

Con la siguiente instrucción:

Sub DiaLabSiguiente()
'Por.Dante Amor
    Dim fecha As Date
    fecha = Application.WorkDay(Date, 1)
End Sub

Si tienes días festivos, puedes poner las fechas en un rango de celdas, por ejemplo en el rango E1 a E10 pon las fechas festivas y en la macro quedará así:

Sub DiaLabSiguiente()
'Por.Dante Amor
    Dim fecha As Date
    fecha = Application.WorkDay(Date, 1, Range("E1:E10"))
End Sub

Saludos.Dante Amor