Dim shtTemp As Worksheet
    
    For Each shtTemp In Worksheets
        shtTemp.Rows(5).RowHeight = 25
    Next