Otomatik çalışan kişisel makro

[erkan1903]

Merhaba,
Kişisel makro olarak kaydettiğim bu kodlar yeni exceli açtığım zaman çalışıyor. Ancak beklentimi biraz daha yükselttim. Arkada devamlı çalışır hale nasıl getirebilirim? Varmıdır bir yolu acaba.
Not: Forumda aradım bulamadım.

Sub Auto_Open()
    If VBA.Time >= "07:30:00 AM" Then
        Application.StatusBar = ":):) Günaydınnnn, Hoş Geldin :):)"
    End If
    If VBA.Time >= "08:01:00 AM" Then
        Application.StatusBar = "Heyyy, artık çalışmaya başlayalım"
    End If
    If VBA.Time >= "11:00:00 AM" Then
        Application.StatusBar = "Tünaydın, Yemeğe 1 saat kaldı"
    End If
    If VBA.Time > "11:50:00 AM" Then
        Application.StatusBar = "Yemeğe 10 dk. kaldı hazırlan"
    End If
    If VBA.Time > "11:59:00 AM" Then
        Application.StatusBar = "Hadi Bakalım, Afiyet olsun"
    End If
    If VBA.Time > "13:00:00 PM" Then
        Application.StatusBar = "Günün ikinci yarısı başladı. Kolay gelsin"
    End If
    If VBA.Time > "14:15:00 PM" Then
        Application.StatusBar = "Uyku mu çöktü :) biraz sonra çay gelecek"
    End If
    If VBA.Time > "15:00:00 PM" Then
        Application.StatusBar = "Çalışmaya devam, Kolay gelsin"
    End If
    If VBA.Time > "17:00:00 PM" Then
        Application.StatusBar = "Akşam oluyor işleri toplamaya başla artık"
    End If
    If VBA.Time > "17:55:00 PM" Then
        Application.StatusBar = "Eeee hadi artık gitme zamanı geldi...."
    End If
    If VBA.Time > "17:59:00 PM" Then
        Application.StatusBar = "Bir sonraki mesai günü görüşürüz. İyice dinlen"
    End If
End Sub

 

[Haluk]

Denemedim ama; kodları bir eklenti dosyası olarak hazırlayıp, XL'e tanıtarsanız olur gibi geliyor.

 

[erkan1903]

Denemedim ama; kodları bir eklenti dosyası olarak hazırlayıp, XL'e tanıtarsanız olur gibi geliyor.

Haluk bey merhaba,
Denedim ama olmadı. veya ben beceremedim.
Yine de fikir için teşekkürler.