U¿ytkownik "Tom Ogilvy" napisa³ w wiadomo¶ci
...
Then name of the initialize event should be

Private Sub Userform_Initialize()

so I am not sure what you get wtih MyForm_Initialize

Sure the name is indeed Userform_Initialize() .... just my deconcentration -
pls forgive :)

Picture is worth 1000 words,,,,
'-------------- code below lives in sheet "Menu"
Private Sub Label7_Click() 'add doc using Ahold setup
WZType = "WZAhold" 'that's just a parm passed
AddWZTyped.Show
End Sub
'---------------
Private Sub UserForm_Initialize() ' this code within AddWZTyped form
....
On Error GoTo NoPrice
.....
With AddWZTyped.Controls.Item("Opis" & Trim(Str(n)))
.Caption =
Sheets("Cennik").Cells(Sheets("Cennik").Range("A:A ").Find(What:=.... Find
might fail
End With
..... more statements SPOT
Exit Sub
NoPrice:
MsgBox ("Small prob" & vbCrLf & "No entry for item " & rng(n, 1) & vbCrLf &
"Pls check setup [...]")
Unload Me
End Sub
'-----------------------------------------------------------
When Unload Me is omitted, the form still shows crippled by no execution of
"more statements SPOT"
With Unload Me it aborts at line AddWZTyped.Show "Object variable not..."
When Debug and F8-ting, it goes into _Initialize and aborts again when .Find
unsuccessful
Should I try to Load form before .Show?

Thanks Tom in advance - I haven't had situation before where error can
strike at _Initialize.
Paul

Regards,
Tom Ogilvy

"count" wrote in message
...
Hi,
It's got to be a newbie question:
I have, for a change, stuff in MyForm_Initialize that can yield an
error.
I trap it with On Error GoTo, where Msg explains it to user.
Now, if there's no other statements past Msg, I get to see troubled form
anyway.
If I put Unload Me after Msg then this triggers Initialize and there we
go
again with error, trapping of it, Msg etc.
Looping, mind you.
How do you avoid this situation elegantly?
TIA
Paul