Nhờ Anh Chị chỉnh lại cho code IN nhiều sheets chuyển lên forms (1 người xem)

[vova2209]

'CODE IN BIEN BAN + KHÔI' LUONG + CAO DÔ
Private Sub OkInBB_CDKL_Click()
    Dim inStart, inFinish As Long 'Dùng Inputbox dôi? Integer
    Dim I As Long
    Dim shNameKL, shNameCD As String
    Dim Rng As Range, DK As Long
   
  If ActiveSheet.CodeName = "Sheet22" Then
    On Error Resume Next
    Set Rng = Sheets("VoVa").Range("A3", Sheets("VoVa").Range("A65535").End(xlUp)).Resize(, 4)
        inStart = TextBox1.Value
        inFinish = TextBox2.Value '
            shNameKL = Sheets("BBan").Range("A2") 'Duyêt sheets lây' tên o? ô cel
            shNameCD = Sheets("BBan").Range("A3")
        For I = inStart To inFinish
        DK = Application.WorksheetFunction.VLookup(I, Rng, 4, False)
        If DK > 0 Then GoTo Tiep
            Sheets("BBan").Range("AZ1").Value = I
            Sheets("BBan").PrintOut 'Vùng in .Range("C2:AF152").PrintOut
           
            Sheets(shNameKL).Select
                Call HidedongProKL
            Sheets(shNameKL).Range("AZ1").Value = I
            Sheets(shNameKL).PrintOut
           
            Sheets(shNameCD).Select
                Call HidedongProCD
            Sheets(shNameCD).Range("AZ1").Value = I
            Sheets(shNameCD).PrintOut
Tiep:
        Next I
    Unload Me
  Else
        MsgBox "Ban phai chon o* Sheet(BBan)", vbCritical, "In Biên Ban"
  End If
End Sub

Nhờ anh chị chỉnh lại code giúp em:
Đây là code in các sheets lựa chọn
+ In sheet("BBan") + 2 sheets có tên lựa chọn lấy ở ô A2 và A3
shNameKL = Sheets("BBan").Range("A2")
shNameCD = Sheets("BBan").Range("A3")
- Giờ em muốn lựa chọn cả 3 sheets này ở Forms như hình dưới mô tả
Em xin chân thành cảm ơn!

 

[vova2209]

Xin được anh chị giúp đỡ.. Em cảm ơn nhiều

 

[vova2209]

Mong được anh chị giúp đỡ!

 

[vova2209]

Em trình bầy chưa rõ ý hay như nào mong anh chị giúp đỡ. Em xin cảm ơn nhiều