Sub Test() Dim intCounter As Integer Dim Vw As View Dim s As String For intCounter = 1 To ActiveDocument.Views.Count Set Vw = ActiveDocument.Views(intCounter) s = s & Vw.Name & vbCr Next intCounter MsgBox "The current document contains the following views: " & vbCr & s Set Vw = NothingEnd SubSub Test() Dim Vw As View Dim s As String For Each Vw In ActiveDocument.Views s = s & Vw.Name & vbCr Next Vw MsgBox "The current document contains the following views: " & vbCr & s Set Vw = NothingEnd Sub