I have 4 custom spelling dictionaries Dict1, Dict2, Dict3 and Dict4.
Dict2 and Dict3 are inactive and have clear tick boxes alongside their entries in the Custom Dictionary dialog box (File > Options > Proofing > Custom Dictionaries).
I am trying to determine what custom dictionaries are activate. 

Sub CustomDictionaries()
Dim D As Dictionary
Dim k As Long
Dim s As String
 
  ' **** method 1 ****
  s = ""
  For Each D In Application.CustomDictionaries
     s = s & D.Name & vbCrLf
  Next D
  MsgBox s
 
  ' **** method 2 ****
  s = ""
  For k = 1 To Application.CustomDictionaries.Count
    s = s & Application.CustomDictionaries(k).Name & vbCrLf
  Next k
  MsgBox s
 
End Sub
Method 1 lists all active and inactive custom dictionaries:
Dict1
Dict2
Dict3
Dict4

Method 2. The Count property should give the number of items in the collection. Instead it gives the number of active custom dictionaries. The result is therefore:
Dict1
Dict2

What I want is a list of only the active dictionaries which in the example is Dict1 and Dict4.