Attribute VB_Name = "Module1"

Private Function SivuTyyppi(ByVal SNimi As String) As String
  Dim Tyyppi As Long
  Dim TmpS As String
  Tyyppi = Sheets(SNimi).Type
  Select Case Tyyppi
    Case xlWorksheet: TmpS = "Laskentataulukko"
    Case xlChart: TmpS = "Grafiikkasivu"
    Case Else: TmpS = "Muu sivu"
  End Select
  SivuTyyppi = TmpS
End Function

Public Sub NaytaSivuTyyppi()
  MsgBox SivuTyyppi(ActiveSheet.Name)
End Sub

Public Sub LaskeGrafSivut()
1   Dim SivuKpl As Long
2   Dim Lp As Long
3   Dim LoydKpl As Long
4   SivuKpl = ThisWorkbook.Sheets.Count
5   For Lp = 1 To SivuKpl
6     If Sheets(Lp).Visible Then
7       If SivuTyyppi(Sheets(Lp).Name) = "Grafiikkasivu" Then
8         LoydKpl = LoydKpl + 1
9       End If
10    End If
11  Next Lp
12  MsgBox "aktiivisia grafiikkasivuja = " & LoydKpl
End Sub