Count no of blank cells per row in multiple sheets in a workbook

[TallOne]

Hi All,

I would like to count the number of black cells for each row in the sheet (I have multiple sheets in the workbook), then print this value in the last column.

I have this code, which is not very practical (I think I need to generalize it to loop through all rows and all worksheets)

Sub CountBlank()
Dim ws As Worksheet

Set ws = Worksheets("March")
ws.Range("CW2") = Application.WorksheetFunction.CountBlank(ws.Range("C2:CV2"))

End Sub

Thank in advance for your help.

[JLGWhiz]

Sub t()
Dim sh As Worksheet, r As Long, lc As Long
    For Each sh In ThisWorkbook.Sheets
        lc = sh.Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column + 1
        For r = 2 To sh.Cells.Find("*", , xlValues, xlPart, xlByRows, xlPrevious).Row
            sh.Cells(r, lc) = Application.CountBlank(sh.Range(sh.Cells(r, 1), sh.Cells(r, lc - 1)))
        Next
    Next
End Sub

[TallOne]

Thanks a lot JLGWhiz.

Exactly what I was looking for. I have just made some modification and addition to accommodate further calculations.

Thanks once again

[JLGWhiz]

You're welcome,
regards, JLG