Data Validation & Quality Check

Sub DataQualityCheck()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim blankCount As Long, errorCount As Long
    Dim totalCells As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    totalCells = lastRow * lastCol

    ' Check for blanks and errors
    For i = 1 To lastRow
        For j = 1 To lastCol

' ... 18 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io