Hi, I have this code that someone on here put together and which I have modified slightly. What I now want is for this to repeat so that the height average of every 59 rows, rather than just the first one, it will put an X in column P.
Code:
Sub RowHeight()
tHeight = 0
For n = 2 To 60
x = Range("J" & n).RowHeight
tHeight = tHeight + x
Next
tHeight = Round((tHeight / 12.75), 0)
'rows to exclude
exRows = tHeight - 59
Range("P" & (60 - exRows)).Select
ActiveCell.Value = "X"
End Sub