Problem running code in proper order
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
|