Auto adjust height of rows 6+

[ksebring]

Is there a way to auto adjust height on rows 6+ but not on 1-5

 

[HackSlash]

Select them and then double click one of the separating lines.

1. Click on the 6 to highlight the whole row
2. Press "CTRL+SHIFT+DOWN"
3. Double click the line between any two rows

 

[ksebring]

Sorry I meant automatically with a VB code to do this each time the sheet is opened.

 

[My Aswer Is This]

Sheets are not "opened" they are "activated"

So do you mean when the "Workbook" is "opened" or the "Worksheet" is "activated"

And if when the "Workbook" is opened do you want this to happen on all sheets or which sheet?

 

[ksebring]

Yes active sheet (PMO) - this is the only sheet on the workbook.

Thanks

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window
This code will only activate when you activate the sheet.
To activate the sheet you will need to activate another sheet then when you come back to this sheet it will be activated.
If you only have one sheet then we may need a "When Open Workbook" script.
Let me know.

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Rows(ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row).Row
Rows("6:" & Lastrow).AutoFit
Application.ScreenUpdating = True
End Sub

OK