Bring Excel to foreground from VBA

Hi,
I am trying to force Excel window as foregrond from VBA window using some win32 API.But this is not helping out.I followed the steps below.

1.Open Excel
2.Press ALT+F11 to open VBA window
3.Double click the ThisWorkbook and paste the following code in the coding area

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Sub Test()
Dim exlHandle As Long
Dim exlTitle As String
exlTitle = Application.Caption
exlHandle = FindWindow(vbNullString, exlTitle)
SetForegroundWindow (exlHandle)
End Sub

Call the method Test from VBA immediate window like below and press enter key there.

call ThisWorkbook.Test

It suppose to set Excel as forground but not.Any suggestion?

Regards,
Rajanbabu

Thanks for the reply.But this is also not helping out.
My need is either one of the below
1.Set excel as foreground window or
2.Set VBA as background window

-Rajanbabu

I kept breakpoint in method Sub Test2() and pressed F5 button.But it is throwing error like below
"The macro 'Book1!BringTotop' can not be found.

but i kept breakpoint in the method BringTotop() and run over.But didnt set Excel as foreground

Excel is comming foreground window for you?
I tried your workbook.But still VBA is in foreground.

I just kept breakpoint in Sub Test2() then pressed F5.This will hit the breakpoint.Now I removed the breakpoint then again pressed F5.Run completed.But VBA is not in foreground.If it is minimised,It is just restoring the Excel window in background.

I tried the same steps in my friend machine which is having Excel 2003,SP2.But still seeing the same behavior.