Dim Count As Integer
Dim i, j As Integer
Dim ObjectName() As String
Dim p As String, dim_val As String

dim_val = ""
For i = 1 To ActiveWorkbook.Worksheets.Count
 If Sheets(i).Name <> "Шаблонí" Then
 Sheets(i).Activate
 p = Range("B1")
 If ObjectName(i) <> p Then
 ObjectName(i) = p

 End If
 dim_val = dim_val + ObjectName(i) + Chr(13)
 End If
 
 Next i
 MsgBox (dim_val)

Dim Count As Integer
Dim i, j, o As Integer
Dim ObjectName( 1  To  100 ) As String
Dim f As String, dim_val As String
Dim p As Variant
Dim MasCounter As Byte
Dim bool_povtor As Boolean

dim_val = ""
For i =  1  To ActiveWorkbook.Worksheets.Count
                                                bool_povtor = False
    If Sheets(i).Name <> "шаблон" Then
                                  Sheets(i).Activate
                                  p = Range("B1")
For o =  1  To i
                 If ObjectName(o) = p Then
                                         bool_povtor = True
                    Exit For
                End If
Next o
   ObjectName(i) = p
  If Not bool_povtor Then
  dim_val = dim_val + ObjectName(i) + Chr( 13 )
  MasCounter = MasCounter +  1 
  
    End If
    End If
Next i
 MsgBox (dim_val & Chr( 13 ) & MasCounter)