Struggling with Sort Descending sub routine in VBA

[Lauren Ward]

Greetings all - relatively new to VBA, and struggling with a routine that has worked before.
I usually would copy and paste and adjust the range and it would work fine, but now it's not sorting at all.
The item is a list of statements, with a $ value and % value. I want to sort by descending value on the % (K) when the spreadsheet it activated.

Here is what I had ... why isn't it working?
Thanks in advance

Range("C69:K76").Select
Selection.Sort Key1:=Range("k64"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("j8").Select

 

[Leith Ross]

Hello Lauren,

Your sort key must be in the selected range. K64 is not part of the range "C69:K76".

 

[Lauren Ward]

OK, I adjusted the to be K76 (which is the percentage I would like to sort on) but it is not running / activating ?

 

[Leith Ross]

Where is the your macro located and what activates it?

 

[Lauren Ward]

This is the full text of the macro. It should be activated when I change tabs but that's not happening. It's located within the VBA code of one of the worksheets. As you can tell, I didn't write the wording, but have been able to make it work in the past ...


Private Sub Worksheet_Activate()

Dim indx As Integer, DoHide As Boolean

Application.ScreenUpdating = False
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

For indx = 2 To 220
DoHide = (Cells(indx, 1) = 0) And (Cells(indx, 1) <> "")
Cells(indx, 1).Rows.Hidden = DoHide
Next indx


Range("A69:k76").Select
Selection.Sort Key1:=Range("k69"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("j8").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Application.ScreenUpdating = True

End Sub

Sub OLEObjects2()
'Delete all ActiveX controls(Control Toolbox)or linked or embedded OLE objects
On Error Resume Next
ActiveSheet.OLEObjects.Visible = True
ActiveSheet.OLEObjects.Delete
On Error GoTo 0
End Sub

 

[Leith Ross]

The only thing I can think of is that row for Key1 is hidden.