Sub dic()

Set WB1 = Workbooks("CSAT INT Global July 2017.xlsx")

Dim key As String, item As Integer
Set WS1DIC = CreateObject("Scripting.Dictionary")
WB1.Activate
For Each ws In Worksheets
      key = ws.Name
      item = ws.Index
      WS1DIC.Add key, item
Next ws


Set WB2 = Workbooks("CSAT INT Global June 2017.xlsx")
Set WS2DIC = CreateObject("Scripting.Dictionary")
WB2.Activate
For Each ws In Worksheets
      key = ws.Name
      item = ws.Index
      WS2DIC.Add key, item
Next ws


If WS2DIC.Count = WS1DIC.Count Then
MsgBox "кол-во листов одинаковое"
Else
MsgBox "кол-во листов разное"

End If



For Each key In WS1DIC.Keys
If WS2DIC.Exists(key) Then
K = K + 1
Next key
If K = WS1DIC.Count Then
MsgBox "названия листов совпадают"
Else
MsgBox "названия листов не совпадают"
End If


End Sub