Option Explicit

[Theophiel]

Hallo beste foumleden,

Nogmaals prettige feestdagen,

graag had ik deze code laten draaien met option explicit, kan iemand me helpen?

Private Sub CmdOpen_Tab_Click()

    sh = ActiveCell.Value
    
    Sheets(sh).Activate
End Sub

Alvast bedankt op voorhand!

 

[edmoor]

Zo:

Private Sub CmdOpen_Tab_Click()
    Dim sh As String
    sh = ActiveCell.Value
    Sheets(sh).Activate
End Sub

Maar je hebt er helemaal geen variabele voor nodig:

Private Sub CmdOpen_Tab_Click()
    Sheets(ActiveCell.Value).Activate
End Sub

 

[Theophiel]

bedankt voor de snelle reactie!

werkt perfect