Workbook_open code not working

[MOB]

I was hoping the below would set row height on opening the file, but it doesn't work. Why would this be??

TIA

Private Sub Workbook_Open()

  Sheets("Bedstat").Range([A6], [A65536].End(xlUp)).EntireRow.RowHeight = 13.5

End Sub

 

[footoo]

Is it located in the ThisWorkbook module?
Run this code to make sure event procedures are enabled : Application.EnableEvents=True

With Sheets("Bedstat")
    .Range(.[A6], .[A65536].End(xlUp)).EntireRow.RowHeight = 13.5
End With

 

[MOB]

It wasn't..............now all sorted, many thanks!!