Find 4.75 and Replace with 12.75 ( Rowheight )

[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.

 

[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)

 

[Steved]

Hello BobT

Yes and Thankyou

Steved

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)