Sub Test() Select Case Documents.Count Case 0 MsgBox "There are no documents open" Case 1 MsgBox "There is 1 document open" Case Else MsgBox "There are " & Documents.Count & " documents open" End SelectEnd Sub