du kan sætte denne ind i ark2 modulet, så tjekker den hvergang du aktiverer siden.
Private Sub Worksheet_Activate() If ActiveSheet.Name <> Sheets("Ark1").Range("A1").Value Then ActiveSheet.Name = Sheets("Ark1").Range("A1").Value End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.