Find 4.75 and Replace with 12.75 ( Rowheight )

S

Steved

Hello from Steved

Please is there away to Find 4.75 and Replace with 12.75 ( Rowheight ).

I have other row heights in the same worksheet.

I thankyou.
 
B

BobT

Are you willing to write a macro to do this? If so:

while activecell.row <= 100

if (selection.rowheight = 4.75) then
Selection.RowHeight = 12.75
end if
ActiveCell.Offset(1, 0).Select

wend

This assumes you want to scan through 100 rows. If you have a column that
is complete full of text/values, you can change the while line to:

while activecell.value <> ""

Bob Tulk
MOUS (XP/97)
 
S

Steved

Hello BobT

Yes and Thankyou

Steved

BobT said:
Are you willing to write a macro to do this? If so:

while activecell.row <= 100

if (selection.rowheight = 4.75) then
Selection.RowHeight = 12.75
end if
ActiveCell.Offset(1, 0).Select

wend

This assumes you want to scan through 100 rows. If you have a column that
is complete full of text/values, you can change the while line to:

while activecell.value <> ""

Bob Tulk
MOUS (XP/97)
Click to expand...
 
Top