Thread: Open Event
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
jlclyde jlclyde is offline
external usenet poster
 
Posts: 410
Default Open Event

Can you have an open event select a cell? I am trying to run macros
and select cells and it is nto working. Here is my code. As soon as
it gets to a line to select a cell it errors out.
Thanks,
Jay

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Run "SortSheets1"
Run "SortSheets2"
Sheets("HK Ips").Range("E5").Select
Run "AddSheet"
Sheet2.Range("C5").Select
Run "AddSheet"
Sheet3.Range("C5").Select
Run "AddSheet"
Sheet4.Range("E5").Select
Run "AddSheet"
Sheet5.Range("E5").Select
Run "AddSheet"
Sheet6.Range("E5").Select
Sheet7.Range("C5").Select
Run "AddSheet"
Sheet8.Range("E5").Select
Run "AddSheet"
Sheet9.Range("E5").Select
Run "AddSheet"
Sheet11.Range("D5").Select
Run "AddSheet"
Sheet12.Range("E5").Select
Run "AddSheet"
Run "SortSheets1"
Application.ScreenUpdating = True
End Sub