Print Charts Chosen From List Box

I got some code from here on how to display all graph names in a List box and choose which ones to print, but i think some syntax is missing and i'd like to print the charts i've chose, not diplay the msgbox

Private Sub CommandButton1_Click()

Dim intIndex As Integer
Dim strMsg As String

For intIndex = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(intIndex) Then
If ListBox1.List(intIndex, 3) = "TRUE" Then
strMsg = strMsg & "Chartsheet " & ListBox1.List(intIndex, 1) & vbLf
Else
strMsg = strMsg & "Chartobject " & ListBox1.List(intIndex, 0) & " on sheet " & ListBox1.List(intIndex, 1) & vbLf
End If
End If
Next

If strMsg <> "" Then MsgBox strMsg

End Sub