MIr wird schon hier in Zeile 8 ein Debugg in Gelb angezeigt

Sub DashboardAnzeigen()

    Dim Dashboard As Dashboard
    Set Dashboard = New Dashboard

    Dashboard.Show
    Dashboard.Top = Application.Top + (Application.Height - Dashboard.Height) / 2
    Dashboard.Left = Application.Left + (Application.Width - Dashboard.Width) / 2
    Dashboard.InitializeDashboard

End Sub