Firstly the Me operator referes to the object and can only be used in
the object so if your sheet is called Sheet1 then you have to use the
code in sheet1 code module, here's how to use it in your method, change
activesheet to be the name of the sheet you are working with:

Sub Auto_Open()

Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.name = "Sheet1" or Sh.name ="Mysheet" Then
else
Activesheet.RegionSelect.AddItem (Sh.Name) ' RegionSelect is the name
of the list
box embeded in the sheet
end if
Next Sh
Application.ScreenUpdating = False
Application.Run "Format"
End Sub

as for the rest of your question feel free to join our forum where you
can make a post and upload a workbook where we will be able to help you
further!


--
The Code Cage Team

Regards,
The Code Cage Team
www.thecodecage.com
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=26045