' Listing 5: The ShowLegend Subroutine

Sub ShowLegend
  XL.Range("A1").Select
  XL.Cells(2,5).Value = "CRITICAL"
  XL.Cells(2,6).interior.colorindex = CRITICAL
  XL.Cells(3,5).Value = "IMPORTANT"
  XL.Cells(3,6).interior.colorindex = IMPORTANT
  XL.Cells(4,5).Value = "UNREACHABLE"
  XL.Cells(4,6).interior.colorindex = UNREACHABLE
  XL.Cells(5,5).Value = "OK"
  XL.Cells(5,6).interior.colorindex = OK
  XL.Cells(6,5).Value = "NOSNMP"
  XL.Cells(6,6).interior.colorindex = NOSNMP
  XL.Cells(7,5).Value = "INFORMATIONAL"
  XL.Cells(7,6).interior.colorindex = INFORMATIONAL
End Sub