Msgbox ved start

Hej

Jeg har et ark med denne makro der lukker arket ned efter 10 minutter, når det ikke bliver brugt.
Nu vil jeg så gerne have en msg.box til at komme frem når arket åbnes.
Boxen skal lige kort give brugeren et par instruktioner om arkets brug.
Er der een der kan hjælpe?

'*************************************************************
Const LukNedEfter As String = "00:10:00" '********************
Const GemFørst As Boolean = True        '********************
'*************************************************************

Public Tid As Date
Sub Start_Føler()
    Tid = Time
    On Error Resume Next
    Application.OnTime Tid + TimeValue(LukNedEfter), "LukNed"
    On Error GoTo 0
End Sub

Sub Stop_Føler()
    On Error Resume Next
    Application.OnTime Tid + TimeValue(LukNedEfter), "LukNed", , False
    On Error GoTo 0
End Sub

Sub Føler()
    On Error Resume Next

    If ThisWorkbook.ReadOnly = True Then Exit Sub

    Call Stop_Føler

    Call Start_Føler
End Sub

Private Sub LukNed()
    If ThisWorkbook.ReadOnly = True Then Exit Sub
    ThisWorkbook.Close (GemFørst)
End Sub