Hallo Tanja,

so kannst du es machen:



Sub SelectNext()



If ActiveSheet.Index < ActiveWorkbook.Worksheets.Count Then

Worksheets(ActiveWorkbook.ActiveSheet.Index + 1).Select

End If



End Sub

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">

geschrieben von Worti , 17.05.2006, 13:14 Uhr , 8 mal gelesen