VBA Code To Autofit The Row Height Of Merged Cells

[Admin]

Hi

Welcome to board !!

Try something like this.

Option Explicit

Private Function NewRowHeight(ByVal MyPixels As Long) As Long
    
    Select Case MyPixels
        Case 1 To 100
            NewRowHeight = 15
        Case 101 To 250
            NewRowHeight = 35
        'more cases
        Case 1100 To 1200
            NewRowHeight = 90
    End Select
    
End Function