Sub InPhieu()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so thu tu can in " & _
vbNewLine & vbNewLine & vbNewLine & _
vbNewLine & "cot so thu tu 'B' cua sheet 'Nhap du lieu' ", "Chon so thu tu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
For Each rng In rng
With Sheet3
.Range("B2") = rng.Value
'Neu muon khong xem truoc khi in thi thay .PrinPreview nhu ben duoi thanh chu .PrintOut
If .Range("V5").Value <> "" And .Range("V5").Value > 0 Then .PrintPreview
End With
Next rng
Else
MsgBox "Ban da khong chon in"
End If
End Sub