Hi Pete;
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long _
, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long _
, ByVal bRevert As Long) As Long

Private Sub UserForm_Activate()
Move 100, 100
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(GetActiveWindow(), False)
RemoveMenu hSysMenu, 1, &H400
DrawMenuBar hSysMenu
End Sub

MP

"Pete" a écrit dans le message de
...
Is there a way to change the position of Userform to a pre
determined location on a spread sheet?

I want my userform to cove up a range of cells so the user
can't see what's underneath until it is closed. Which
would then beg the question of, can you stop a user from
moving the userform?

Any thoughts
Pete