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

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

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

I assume you have VB editor opened, rightclick the project screen, if you
don't see this press ctl+R, and select insert-userform. doubleclick the for
to get to the code, erase everything there then paste the sub codes there

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

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




repeat the process but insterting a userform, insert a module
paste the rest of the code there

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

make sure you have a sheet named MAIN as that is what is referenced above,
that or change it. Let me know how it goes.

--
-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

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

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

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