Nhờ giúp đỡ kiểm tra điều kiện trước khi chạy code (1 người xem)

[phuocrobe]

Mình có 1 đoạn code như thế này, giờ mình muốn trước khi chạy code cần kiểm tra đủ điều kiện tại ô left(B11;5)="Thanh" ở sheet "doc1" của file "B12.xls" thì mới chạy đoạn code này thì phải làm thế nào vậy?
Nhờ anh chị giúp đỡ mình với. Thank all.

Code:
Sub ktra()
Application.ScreenUpdating = False
Range("B9:H" & Range("B300").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\B12.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
Range("B9").CopyFromRecordset cn.Execute("SELECT f2,f5,f7,f8,f15,f22,f30*1 FROM [doc1$A15:AK300] where f2 >0 or f2 =0")
Range("B9:B" & Range("B300").End(3).Row).Value = "=row()-8"
Range("B9:H" & Range("B300").End(3).Row).Borders.LineStyle = xlContinuous
End Sub