I am getting this error on the code below. Run-Time '438': Object
doesn't support this property or method"

Private Sub FourthChoose_Click()
Const PWORD As String = "123456"
Application.ScreenUpdating = False
With Worksheets("Model")
.Activate
.Unprotect Password:=PWORD
.Range("O56").Select
.Columns("R:R").Select
.Selection.Cut
.Columns("O:O").Select
.Selection.Insert Shift:=xlToRight
.Application.CalculateFull
.Columns("S:S").Select
.Selection.Cut
.Columns("Q:Q").Select
.Selection.Insert Shift:=xlToRight
.Application.CalculateFull
.Columns("T:T").Select
.Selection.Cut
.Columns("S:S").Select
.Selection.Insert Shift:=xlToRight
.Application.CalculateFull
.Range("V24").Select
.Protect Password:=PWORD
End With
Application.ScreenUpdating = True
End Sub

Also, is there a way to disable a user from seeing the VBA code of the
excel file when this particular file is open, since I have to show the
password to make some changes and then relock the file.

Thanks for the help.

Scott