vba row size for workbook sheet

[Danny54]

Im updating a sheets rowsize but when its saved, the size of each row isnt adjusted. Any Ideas?

Thanks


wb.Sheets(1).Range("U:U").ColumnWidth = 10.56
wb.Sheets(1).Range("W:W").ColumnWidth = 50
wb.Sheets(1).Range("X:X").ColumnWidth = 50


Set targetRange = Range("A:A")
For Each targetCell In targetRange
If Not IsEmpty(targetCell) Then
targetCell.RowHeight = 13.8
End If
Next targetCell

With wb.Sheets(1).Columns("A:Z")
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
End With


'Save and Close Workbook
wb.Close SaveChanges:=True

 

[Fluff]

How about

With wb.Sheets(1)
    .Range("U:U").ColumnWidth = 10.56
    .Range("W:W").ColumnWidth = 50
    .Range("X:X").ColumnWidth = 50


    For Each targetCell In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
        If Not IsEmpty(targetCell) Then
            targetCell.RowHeight = 13.8
        End If
    Next targetCell
    
    With .Columns("A:Z")
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
    End With
End With

'Save and Close Workbook
wb.Close SaveChanges:=True

 

[Danny54]

Great solution. Thanks so much

 

[Fluff]

You're welcome & thanks for the feedback