xin các cao thủ sửa giúp em đoạn code VBA (1 người xem)

[hhhhgggg]

Em có đoạn Code VBA in tự động như sau: ( dùng để in các biên bản của 3 sheet "NB" "PYC" " XD" "PKT" )

Private Sub CommandButton1_Click()
Dim i, A, B As Integer
Sheets("NB").Select
A = InputBox("In bien ban tu so:")
B = InputBox("den so:")
For i = A To B
Range("o2").Value = i
'ActiveSheet.PrintOut preview:=False 'in
Sheets("NB").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("PYC").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Sheets("XD").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Next
Sheets("NB").Select
End Sub

Hiện tại em muốn sửa code này để có thêm tùy biến như sau:
Trong file Excel có thêm 1 sheet là "ListBB"
Nếu ô M(i) - i là biến chạy ở trên thuộc sheet ListBB có chữ "XD" thì in sheet "XD"
Nếu ô M(i) - i là biến chạy ở trên thuộc sheet ListBB có chữ "PKT" thì in sheet "PKT"
Các cao thủ sửa giúp em đoạn code này với ạ !
Em xin chân thành cảm ơn ạ !