Will not refresh nor ascend as desired with VBA

[Livin404]

Greetings,

I have a pivot table and I have a VBA that is suppose to refresh and place the rows in ascending order. I know it should work for the same formual works for two other databases/Pivot Table.
I get the error "Run-Time errror '438': Object doesn't Support this property or mehod". As I stated earlier the VBA works great for two other databases/Pivot Tables.
Here is the code I'm using:

Private Sub CommandButton1_Click()
Dim xlSort As XlSortOrder
Dim LastRow As Long
With Sheets("Outbound Pallets")
.Unproect Password:="mozzer"
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1") = "Date"
.Columns("A:J").Sort key1:=.Range("A2"), order1:=xlAscending, Header:=xlYes
ActiveWorkbook.RefreshAll
.Protect Password:="mozzer", AllowFormattingColumns:=True, AllowInsertingHyperlinks:=True, AllowDeletingRows:=True

End With
End Sub

Below is he image of "Outbound Pallets" I do have data in the image; I just deleted so I could post it here.

Thank you,

 

[jasonb75]

First thing I notice is that you have declared 2 variables and assigned a value to one of them but not used it, suggesting that you have posted incomplete code.

With what you have provided, the only possible cause would be using the wrong password to unprotect the sheet.