row height

[James Montgomery]

Hi,

I want to use the range below and then check each row in that range for row
height, if the row height is = to 12.75 or less then I want to change the
row height to say 11.75 and all other rows in the range leave as they are.

Range("A101", Range("End")
range name ("End") is in column A

Thanks
James

 

[Frank Kabel]

Hi
then you have to loop through all rows. and check each individually

 

[James Montgomery]

Frank I tried this but it changes all the rows to the new height

For Each row In Range("A101", Range("End").Offset(0, 0))
If RowHeight <= 12.75 Then
row.RowHeight = 11
End If
Next row

can you help

James

 

[Frank Kabel]

Hi
try something like the following:

dim irows as long
with activesheet
for irows=101 to .Cells(Rows.Count, "A").End(xlUp).Row
if .rows(irows).rowheigth = 12.75 then
.rows(irows).rowheigth = 11
end if
next
end with