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

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

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
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 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" wrote in message
...
Hi
then you have to loop through all rows. and check each individually

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
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

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

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
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" wrote in message
...
Hi
then you have to loop through all rows. and check each individually

--
Regards
Frank Kabel
Frankfurt, Germany

"James Montgomery" schrieb im Newsbeitrag
...
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