counting number of rows

I have two worksheets- Sheet1 and Sheet2

In Sheet1, I want to count the number of row are not bold. And I want to show this count in a cell in Sheet2.

I currently have something like this:

Dim cnt as Integer

cnt = Range("G1").CurrentRegion.Rows.Count
 
 For Each Row In Range("G1")
     If Row.Font.Bold = True Then
        cnt = cnt + 0

End If
Next

    Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("B2"))
    ActiveCell.Value = cnt

But the macro is returning me the count of all the rows instead, including the bold ones.

How should I change the macro?

Thanks!

Moderator's note: Code tags added for you - this time

    Dim cnt As Long, cell As Range
    
    For Each cell In Range("G1", Range("G" & Rows.Count).End(xlUp))
        If cell.Font.Bold Then cnt = cnt + 1
    Next
    
    Application.Goto ActiveWorkbook.Sheets("Sheet2").Range("B2")
    ActiveCell.Value = cnt

Note: this method doesn't count Bold as a result of conditional formatting.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here