VBA to lock specific rows when a worksheet opens

[simora]

I'm trying to lock specific rows when a worksheet opens.
This is the code that I have which is NOT working.
Its selecting the rows, but, thats it.

What am I doing wrong?

Worksheets(MySht).Activate
Rows(3).Select
Selection.Locked = True
Selection.FormulaHidden = False

Rows(8).Select
Selection.Locked = True
Selection.FormulaHidden = False

[Bob Phillips]

With Worksheets(MySht)
 
With .Rows(3)

.Locked = True 
.FormulaHidden = False 
End With

With .Rows(8)

.Locked = True 
.FormulaHidden = False
End With

.Protect
End With

[Aussiebear]

Could you shorten this a bit more?

With Worksheets(MySht)
With .Rows(3:3,8:8)
.Locked = True
.FormulaHidden = False
.Protect
End With
End With
End Sub

[simora]

Solutions worked great.

Thanks