VBA Autofit when Sheet Selected

[tlc53]

Hi there,

I would like rows 15:74 to autofit when sheet77 (called A3) is selected. If possible, I would also like to set the minimum row height to 15.
Currently I have the below code but it only works when I save/exit the file and re-open.
Ideally I would like it to resize the rows every time sheet77 is selected. Is there a way to do this please?

Code under sheet77..

Private Sub Worksheet_Active()
Call Auto_Fit_Rows
End Sub

Code under module..

Sub Auto_Fit_Rows()
Rows("15:74").EntireRow.AutoFit
End Sub

 

[StephenCrump]

Private Sub Worksheet_Activate()

 

[tlc53]

Private Sub Worksheet_Activate()

Hehe.. thank you