Sub VerifyIssueOnly()
'<Public Constants>
DATA_SHEET = 1 'No. data sheet
COL_ISSUENO = "A" 'Column containing status
COL_ACTIONNO = "B"
COL_REF = "C" 'Reference column to stop when empty
first_datarow = 3 'No. of first Row containing data
COLOR_INDEX = 15 'Cell.ColorIndex status 'In Progress'
'</Public Constants>
Range("BZ1").FormulaR1C1 = "1"
Range("BZ1").Copy
Range(Cells(first_datarow, COL_ACTIONNO), Cells(65536, COL_ACTIONNO)).Select
Selection.PasteSpecial Paste:=xlPasteAll, operation:=xlMultiply, skipblanks:=False, Transpose:=False
Selection.NumberFormatLocal = "0;;;"
With Application.WorksheetFunction
MsgBox .Sum(Range(Cells(first_datarow, COL_ACTIONNO), Cells(65536, COL_ACTIONNO)))
End With
End Sub
