Make userform stay on top of all windows when macro is fired

[Silver]

Hi Leith,

When I'm running 32 bit version, getting below error -

Run-time error '424':
Object required

and UserForm1.Show from below portion of code gets highlighted

Sub Run()
    Call StartIt
    UserForm1.Show
    SetTimer
End Sub

When opening 64 bit version, excel goes directly into the coding window a throws pop-up -

Compile error:
Expected: Sub or Function

Below portion of the code is highlighted in RED -

' This API call is used to hide or show the Excel Application.
Public Declare PtrSafe Function ShowWindow _
Lib "user32.dll" _
(ByVal hwnd As LongPtr, _
ByVal nCmdShow As Long) _
As Long


' Returns the Window Handle of the Window that is accepting User input.
Private Declare PtrSafe Function GetForegroundWindow Lib "user32.dll" () As LongPtr

Private Declare PtrSafe Function SetWindowPos _
Lib "user32.dll" _
(ByVal hwnd As LongPtr, _
ByVal hWndInsertAfter As LongPtr, _
ByVal x As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) _
As Long