E-mail question at Excel 2007

[Louis_Papaspirou]

Hello, need advice with the following

Quantity is at column 2 and supplier is at column 3. If the quanity is zero do not send the email at that specific supplier


I attach the code

Application.ScreenUpdating = False

Sheets("ORDERS").Select

Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
'Hide columns
Sheets("ORDERS").Select
Range("D:H").EntireColumn.Hidden = True

BeginRow = 7
EndRow = 500
ChkCol = 2

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = Blank Or Cells(RowCnt, 3).Value = "SUPPLIER1" Or Cells(RowCnt, 3).Value = "SUPPLIER2" Or Cells(RowCnt, 3).Value = "SUPPLIER3" Or Cells(RowCnt, 3).Value = "SUPPLIER4" Or Cells(RowCnt, 3).Value = "SUPPLIER5" Or Cells(RowCnt, 3).Value = "SUPPLIER6" Or Cells(RowCnt, 3).Value = "SUPPLIER7" Or Cells(RowCnt, 3).Value = "SUPPLIER8" Or Cells(RowCnt, 3).Value = "SUPPLIER9" Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True

Next RowCnt

Worksheets("ORDERS").Select
Range("A8").Select

'Sub Mail_ActiveSheet()
Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SendMail Array("lpapaspirou@gmail.com"), _
"ORDERS"
ActiveWorkbook.Close False

Thanks
LP