Error message display

[sujittalukde]

I am using the folllowing code to update web qwery. Since the site needs password so I use "Remenber me" in the site so that I do not need to log in again. But the same expires after some days and I need to relog in. Then the code executes an error. I want that instead of showing the error msg, the code shall show following msg
"Please visit the web to re log in". Where this message is to put in the code? Someone should please help!

Sub Update()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    Application.StatusBar = "Please wait while updating..."
    Application.Wait Now + TimeValue("00:00:02")
    Sheets("Web").Select
    Range("A40").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("TOP").Select
    Application.StatusBar = False
End Sub

 

[sujittalukde]

Please help!

 

[sujittalukde]

Bump

 

[sujittalukde]

Bump!!!!!!!!!!!

 

[sujittalukde]

I have modified the error handler message as shown below, but it is showing the Message every time the code completes its task, ie evenif there is no error

Sub Update()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    Application.StatusBar = "Please wait while updating..."
    Application.Wait Now + TimeValue("00:00:02")
On Error GoTo endo
    Sheets("Web").Select
    Range("A40").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("TOP").Select
    Application.StatusBar = False

endo: MsgBox "Please relogin the web"
End Sub

Please help me in handling the error and message box?