Hallo,

Ich habe ein kleines Makro was mir die Anzahl der Arbeitsblätter in Visio ausgibt, leider bekomme ich es nicht hin das es NUR die Vordergrundblätter zählt.

Habe es mit Select case versucht, aber nicht hinbekommen ... kann mir da einer helfen? :-)

Sub ArbBlattZählen1()
Dim intZahl As Integer

intZahl = ActiveDocument.Pages.Count
MsgBox intZahl

End Sub

Gruß

ScOtty