I have a form entitled WBSpik designed to present a Work Breakdown Structure
code in a popup

WBSpik as a form exists. When I run it from the editor, it works fine.
In my startup code, I get an error message.

Here is the section of code (in the WorksheetChange event)
This section of code is executed whenever the user double clicks on a cell
in the "Performer" column
The concept is: If the user changes the "Performer", then there must be a
change in the WBS - therefore show the WBSpik popup

If sCol = Range("Performer").Value Then
'capture current row
sRow = sRow + 1
'capture WBS column
WBScol = Range("WBSn").Value
'capture value in Performer cell
PerfVal = Cells(sRow, sCol)
'capture value of current WBS
ThisWBS = Cells(sRow, WBScol).Value
'lookup performer WBS based on PerfVal
ThisPerfWBS = Application.WorksheetFunction.VLookup(PerfVal,
Sheets("lists").Range("AF2:AG30"), 2, 0)
'capture first 2 digits of WBS
ThisWBS = Mid(Cells(sRow, WBScol).Value, 1, 2)
'if first 2 digits of ThisWBS do not match ThisPerfWBS - show popup
If Mid(ThisPerfWBS, 1, 2) < ThisWBS Then
'make sure cursor is in proper cell
Cells(sRow, WBScol).Select
'Show WBSpik form
WBSpik.Show
End If
End If

The error occurs at "WBSpik.Show"

Anybody know why?

Thanks,
Glen

What is the error message you are getting?
The code before WBSpik.Show doesn't really matter - even if there was a
problem the form should show when you get to this line unless something else
is interfering with it. My first guess is that there is something that runs
when the form opens that is having problems. Do you have a
UserForm_Initialize or _Activate procedure? If so, take a look in there for
a possible error that might be occurring as the form opens. You could put a
breakpoint in the code and then step through it to test this.

I would need to know more to speculate any further - what is the error
message, and what happens when your form loads? What controls are on the
form?
--
- K Dales


"Glen Mettler" wrote:

I have a form entitled WBSpik designed to present a Work Breakdown Structure
code in a popup

WBSpik as a form exists. When I run it from the editor, it works fine.
In my startup code, I get an error message.

Here is the section of code (in the WorksheetChange event)
This section of code is executed whenever the user double clicks on a cell
in the "Performer" column
The concept is: If the user changes the "Performer", then there must be a
change in the WBS - therefore show the WBSpik popup

If sCol = Range("Performer").Value Then
'capture current row
sRow = sRow + 1
'capture WBS column
WBScol = Range("WBSn").Value
'capture value in Performer cell
PerfVal = Cells(sRow, sCol)
'capture value of current WBS
ThisWBS = Cells(sRow, WBScol).Value
'lookup performer WBS based on PerfVal
ThisPerfWBS = Application.WorksheetFunction.VLookup(PerfVal,
Sheets("lists").Range("AF2:AG30"), 2, 0)
'capture first 2 digits of WBS
ThisWBS = Mid(Cells(sRow, WBScol).Value, 1, 2)
'if first 2 digits of ThisWBS do not match ThisPerfWBS - show popup
If Mid(ThisPerfWBS, 1, 2) < ThisWBS Then
'make sure cursor is in proper cell
Cells(sRow, WBScol).Select
'Show WBSpik form
WBSpik.Show
End If
End If

The error occurs at "WBSpik.Show"

Anybody know why?

Thanks,
Glen

You are correct. I disovered an error in the initialize portion of the
form.

Thanks

Glen

"K Dales" wrote in message
...
What is the error message you are getting?
The code before WBSpik.Show doesn't really matter - even if there was a
problem the form should show when you get to this line unless something
else
is interfering with it. My first guess is that there is something that
runs
when the form opens that is having problems. Do you have a
UserForm_Initialize or _Activate procedure? If so, take a look in there
for
a possible error that might be occurring as the form opens. You could put
a
breakpoint in the code and then step through it to test this.

I would need to know more to speculate any further - what is the error
message, and what happens when your form loads? What controls are on the
form?
--
- K Dales


"Glen Mettler" wrote:

I have a form entitled WBSpik designed to present a Work Breakdown
Structure
code in a popup

WBSpik as a form exists. When I run it from the editor, it works fine.
In my startup code, I get an error message.

Here is the section of code (in the WorksheetChange event)
This section of code is executed whenever the user double clicks on a
cell
in the "Performer" column
The concept is: If the user changes the "Performer", then there must be
a
change in the WBS - therefore show the WBSpik popup

If sCol = Range("Performer").Value Then
'capture current row
sRow = sRow + 1
'capture WBS column
WBScol = Range("WBSn").Value
'capture value in Performer cell
PerfVal = Cells(sRow, sCol)
'capture value of current WBS
ThisWBS = Cells(sRow, WBScol).Value
'lookup performer WBS based on PerfVal
ThisPerfWBS = Application.WorksheetFunction.VLookup(PerfVal,
Sheets("lists").Range("AF2:AG30"), 2, 0)
'capture first 2 digits of WBS
ThisWBS = Mid(Cells(sRow, WBScol).Value, 1, 2)
'if first 2 digits of ThisWBS do not match ThisPerfWBS - show popup
If Mid(ThisPerfWBS, 1, 2) < ThisWBS Then
'make sure cursor is in proper cell
Cells(sRow, WBScol).Select
'Show WBSpik form
WBSpik.Show
End If
End If

The error occurs at "WBSpik.Show"

Anybody know why?

Thanks,
Glen