Attribute VB_Name = "Module1"
Sub StartUpAnimation()
    Dim myLogo As Shape
    Dim myMap As Shape
    Dim i As Double
    Set myLogo = Worksheets("Main").Shapes(1)
    Set myMap = Worksheets("Main").Shapes(2)
    
    Application.EnableCancelKey = xlErrorHandler
    On Error GoTo StartUpAnimation_End
    
    myMap.Visible = msoFalse
    myLogo.Adjustments(1) = 91
    myLogo.Adjustments(2) = 0.5
    myLogo.TextEffect.Tracking = 0.1
    Worksheets("Main").Select
    Application.ScreenUpdating = True
    
    For i = 91 To 166 Step 5
        myLogo.Adjustments(1) = i
        DoEvents
    Next i
    For i = 0.5 To 0.18 Step -0.02
        myLogo.Adjustments(2) = i
        DoEvents
    Next i
    For i = 0.1 To 1.5 Step 0.1
        myLogo.TextEffect.Tracking = i
        DoEvents
    Next i
    For i = 0.2 To 0.455 Step 0.02
        myLogo.Adjustments(2) = i
        DoEvents
    Next i
    
StartUpAnimation_End:
    myLogo.Adjustments(1) = 166
    myLogo.Adjustments(2) = 0.455
    myLogo.TextEffect.Tracking = 1.5
    myLogo.Visible = msoTrue
    myMap.Visible = msoTrue
End Sub