My problem is that the code:

Call FindLastNoXXX.FindLastNoXXX

does not seem to complete before the UserForm displays. The FindLastNoXXX
code needs to place a value in Cell AA5 prior to the UserForm opening. Any
ideas?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

If rng(1, 2).Value = "" Then
Application.EnableEvents = False
GoTo Finished

End If

If Not Application.Intersect(Target, Range("C7:V700")) Is Nothing Then
'NoShowDataInput.Show

Call FindLastNoXXX.FindLastNoXXX

NoShowDataInput.Show

End If

Finished:

End Sub

This line confuses me:

Call FindLastNoXXX.FindLastNoXXX

Maybe:

Call FindLastNoXXX



"Patrick C. Simonds" wrote in message
...
My problem is that the code:

Call FindLastNoXXX.FindLastNoXXX

does not seem to complete before the UserForm displays. The FindLastNoXXX
code needs to place a value in Cell AA5 prior to the UserForm opening. Any
ideas?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

If rng(1, 2).Value = "" Then
Application.EnableEvents = False
GoTo Finished

End If

If Not Application.Intersect(Target, Range("C7:V700")) Is Nothing Then
'NoShowDataInput.Show

Call FindLastNoXXX.FindLastNoXXX

NoShowDataInput.Show

End If

Finished:

End Sub

It's a very bad idea to have modules and procedures share the same name.

I don't know if that's the cause of your problem, but I change the name of one
of those.


"Patrick C. Simonds" wrote:

My problem is that the code:

Call FindLastNoXXX.FindLastNoXXX

does not seem to complete before the UserForm displays. The FindLastNoXXX
code needs to place a value in Cell AA5 prior to the UserForm opening. Any
ideas?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

If rng(1, 2).Value = "" Then
Application.EnableEvents = False
GoTo Finished

End If

If Not Application.Intersect(Target, Range("C7:V700")) Is Nothing Then
'NoShowDataInput.Show

Call FindLastNoXXX.FindLastNoXXX

NoShowDataInput.Show

End If

Finished:

End Sub

--

Dave Peterson

ps. Maybe the code in that FindLastNoXXX is not doing what you expect. You may
want to share that.

"Patrick C. Simonds" wrote:

My problem is that the code:

Call FindLastNoXXX.FindLastNoXXX

does not seem to complete before the UserForm displays. The FindLastNoXXX
code needs to place a value in Cell AA5 prior to the UserForm opening. Any
ideas?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

If rng(1, 2).Value = "" Then
Application.EnableEvents = False
GoTo Finished

End If

If Not Application.Intersect(Target, Range("C7:V700")) Is Nothing Then
'NoShowDataInput.Show

Call FindLastNoXXX.FindLastNoXXX

NoShowDataInput.Show

End If

Finished:

End Sub

--

Dave Peterson

Thank you for your time. I named the module the same just for the ability to
find what I am looking for more quickly, but as a buffer, I will take your
advice to heart. Just wondering what the danger of using the same name might
be.

As to my original problem. I have solved that one. Out of 50,172 characters
I missed typed 1 number. It took almost 5 hours to track that down.

"Dave Peterson" wrote in message
...
ps. Maybe the code in that FindLastNoXXX is not doing what you expect.
You may
want to share that.

"Patrick C. Simonds" wrote:

My problem is that the code:

Call FindLastNoXXX.FindLastNoXXX

does not seem to complete before the UserForm displays. The FindLastNoXXX
code needs to place a value in Cell AA5 prior to the UserForm opening.
Any
ideas?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

If rng(1, 2).Value = "" Then
Application.EnableEvents = False
GoTo Finished

End If

If Not Application.Intersect(Target, Range("C7:V700")) Is Nothing Then
'NoShowDataInput.Show

Call FindLastNoXXX.FindLastNoXXX

NoShowDataInput.Show

End If

Finished:

End Sub

--

Dave Peterson