DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
For a = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(a) = True Then
Sheets(ListBox2.List(a, 0)).Visible = True
Sheets(ListBox2.List(a, 0)).PrintOut
Sheets(ListBox2.List(a, 0)).Visible = False
End If
Next
End Sub