No problem, it is always good to help someone that takes the initiative to
find ways to make things easier. Good luck and keep it up!
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"David A." wrote:

Finally, it works.

OMG thank you, I've been working on this soooooooo long, Thank you thank you
thank you.

"John Bundy" wrote:

looks like there were parts of code that did not come through, here is the
code to put into the module

Public Declare Function SetWindowLong _
Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long

Public Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"David A." wrote:

I'm going to need step by step dirrections. I have tried everything. I am
just not doing it right...
I am sorry.

Thanx.



"John Bundy" wrote:

Insert a general module and place the functions in there
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"David A." wrote:

How do I get
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
Application.ScreenUpdating = False
Sheets("main").Select
Application.ScreenUpdating = True
End Sub

to function with:

SetWindowLong _
Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Private Sub UserForm_Initialize()
SetWindowLong FindWindow(vbNullString, Me.Caption), _
-16, -2067791744
End Sub