Fra forside til aktuelle uge

Denne VBA-kode indsættes under "ThisWorkbook".

Private Sub Workbook_Open()
    Sheets(1).Activate
    ugenr = Range("E4")
    If ugenr <> "" Then
        Sheets("Uge " & CStr(ugenr)).Activate
    End If
End Sub



og så velkommen til eksperten..
PS: Slet det første af dine indlæg da de er ens. Læg selv et svar og accepter dette.

Nu har jeg sat den ind under "ThisWorkbook"

Når jeg så trykker på knappen sker der ikke noget. Den melder ikke fejl men der sker heller ikke noget yderligere.

Det skulle gerne være sådan, at når filen åbnes - så er det aktuelle uge ark åbnet.

Hvilken knap?

Det beklager jeg at jeg ikke fik formulleret i starten.

På den første side er det muligt at skrive kommentar. På denne side er der en knap som hedder "Tavlemøde oversigt". Når der trykkes på denne knap skal man komme til den fane som passer til den pågældende uge. (Uge 5)

Ok - prøver at tilrette efter dette.

Rem Indlægges på ark med knappen
Private Sub CommandButton1_Click()
    ThisWorkbook.aktiverUge
End Sub

Rem ThisWorkbook
Private Sub Workbook_Open()
    Sheets(1).Activate
End Sub
Public Sub aktiverUge()
    ugenr = Range("E4")
    If ugenr <> "" Then
        Sheets("Uge " & CStr(ugenr)).Activate
    End If
End Sub

Tusind tak for hjælpen.
Kan du ikke sende et svar så jeg kan lukke den?

Selv tak
Har allerede lagt et svar ved #1