a macro to format a row height and font, dependant upon a cell content

Hi Peter
Try this to get the idea - run it from a standard code module

Sub incval()

'Macro for PeterF
'Assumes cells to be checked are in col A
'With an option for the UsedRange
'Assumes font size for this example = 20

Dim rng As Range, cell As Range

Set rng = Range("A1:A" & Range("A65356").End(xlUp).Row)
'or
'Set rng = ActiveSheet.UsedRange

    For Each cell In rng
        If cell > 0 Then
            cell.Font.Size = 20
            'Just in case row height has been adjusted manually
            cell.EntireRow.AutoFit
        End If
    Next
    
End Sub