'PLACE IN YOUR USERFORM CODE

Private Sub UserForm_Activate()

    Application.Wait (Now + TimeValue("00:00:01"))

    SplashUserForm.Label1.Caption = "Loading Data..."

    SplashUserForm.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    SplashUserForm.Label1.Caption = "Creating Forms..."

    SplashUserForm.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    SplashUserForm.Label1.Caption = "Opening..."

    SplashUserForm.Repaint

    Application.Wait (Now + TimeValue("00:00:01"))

    Unload SplashUserForm

End Sub

-------------------------------------------------------------------------------------------------------------------------

'PLACE IN A STANDARD MODULE

Option Explicit

Option Private Module

Public Const GWL_STYLE = -16

Public Const WS_CAPTION = &HC00000

Public Declare Function GetWindowLong _

                       Lib "user32" Alias "GetWindowLongA" ( _

                       ByVal hWnd As Long, _

                       ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong _

                       Lib "user32" Alias "SetWindowLongA" ( _

                       ByVal hWnd As Long, _

                       ByVal nIndex As Long, _

                       ByVal dwNewLong As Long) As Long

Public Declare Function DrawMenuBar _

                       Lib "user32" ( _

                       ByVal hWnd As Long) As Long

Public Declare Function FindWindowA _

                       Lib "user32" (ByVal lpClassName As String, _

                       ByVal lpWindowName As String) As Long

Sub HideTitleBar(frm As Object)

    Dim lngWindow As Long

    Dim lFrmHdl As Long

    lFrmHdl = FindWindowA(vbNullString, frm.Caption)

    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)

    lngWindow = lngWindow And (Not WS_CAPTION)

    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)

    Call DrawMenuBar(lFrmHdl)

End Sub

-----------------------------------------------------------------------------------------------------------------------

'PLACE IN YOUR USERFORM CODE

Private Sub UserForm_Initialize()

    HideTitleBar Me

End Sub

--------------------------------------------------------------------------------------------------------------------------

'PLACE IN ThisWorkbook SHEET MODULE

Private Sub Workbook_Open()

    Application.ScreenUpdating = False

    ActiveWindow.Visible = False

    SplashUserForm.Show

    Windows(ThisWorkbook.Name).Visible = True

    Application.ScreenUpdating = True

End Sub