Thanks Cesar
How can I add a new sheet from with Add-in if I want to
Thanks
-----Original Message-----
use this code to trap that error

If ActiveSheet Is Nothing Then Exit Sub


Cesar Zapata




"James" wrote in
message
...
Hi Guys

I have created an AD-in in Excel 2002 (win 2k). It works
fine in Excel format but when I convert it to Add-in I
run
into problems.

The following userform event errors out (Run time 91,
obeject variable or with block variable not set)
It happens only when Know other work book is open and
Add-
in is open on its own.
Is there a way to ceate a new workbook if know other
workbook is present , select it so that it does not
encounter the error.

Thanks a lot

Private Sub UserForm_Initialize()


Dim WB As Workbook
For Each WB In Workbooks
If WB.Windows(1).Visible = True Then
Me.ListBox1.AddItem WB.Name
End If
Next WB


End Sub




.