makro birleştirme

[2008model]

değerli dostlar merhaba,
bu makroya bir başka makroyu nasıl ilave edebilitim yada ekleyebilirim.teşekkürler şimdiden.

Option Explicit

Option Explicit

Sub AUTO_OPEN()
DoEvents
Application.OnTime Now + TimeValue("00:00:10"), "SÜRELİ_MAKRO"
End Sub

Sub SÜRELİ_MAKRO()
DoEvents
If Date >= CDate("day.month.years") Then