Ez valamiért nem működik.
Az idézőjel a zárójelen belül kell ugye?


Private Sub Workbook_Open()
Sheets("Munka1").Activate
End Sub