Hi Nigel,

Thanks for your response, but I can't get it working.
The solution from John works great, but i'm just curious if your
solution works as well.

If I put your code into my sheet, nothing happens.

Did it work for you?

Erik


Nigel schreef:

You can test the row height as well as set it, so try this.......

Sub RowH()
With Sheets("Sheet1").UsedRange
If .RowHeight = 13.75 Then .RowHeight = 15
End With
End Sub
--
Cheers
Nigel



"bergjes" wrote in message
ups.com...
Hi,
I'm a newbie with excel programming, but can somebody help me with the
following.

I have a rather large worksheet from wich I have to change the row
height to 15, but only the rows that have a height of 13.75.

Is there anyway I can do that with a macro or vsb?

Thanks,
Erik