Dave and Frank
I opened a new work book and entered just this code in Private Sub
Worksheet_Activate()
Dim n, p, q
Sheet1.lb1.Clear
Sheet1.lb2.Clear
Sheet1.lb3.Clear
For n = 1 To 12 Step 0.25
Sheet1.lb1.AddItem (n * 25.4)
Sheet1.lb2.AddItem (n * 25.4)
Next
For n = 6 To 25 Step 0.5
Sheet1.lb3.AddItem (n)
next
I then saved it and the sheet and closed the sheet.
Opening the sheet I briefly saw the data fill the boxes fill with data and
then blank. So it is working but the data is not visible. A slightly
different slant on the problem.
Can either of you wizards help?
Thanks
"jee22" <(E-Mail Removed)> wrote in message
news:ceajhq$f4r$(E-Mail Removed)...
> Can some one tell me how to run a macro as soon as the sheet is opened. I
> have a box which needs to be filled using Add.item when the sheet opens.
>
> The Additem routine works correctly when I click the button for it, but I
> want to dispense with the button.
>
> Thank you in advance.
>
>
> --
> (E-Mail Removed)
> Materials Science & Metallurgy
> Ext 34346
>
>