Toggle Button - Sort Information in columns

[Toshura]

Disclaimer: I have a basic understanding of scripting.

I've created a toggle button and I want it to toggle ascending & descending in a range of cells. I've been trying to do just a column cell range with this script, but I don't like how it collapses up to the top.

Private Sub ToggleButton6_Click()


If ActiveSheet.AutoFilterMode = True Then
'autofilter is on...
ActiveSheet.AutoFilterMode = False
Else
'autofilter is not on...
ActiveSheet.Range("$D$3:$D$500").AutoFilter Field:=1, Criteria1:="D"
End If
End Sub

I've also been playing (and really like this one!) with this script to sort a range based on what cell is selected, but can't figure out how to get it to attach to ToggleButton6.

Sub Sort_Me_Please()
Selection.Resize(67, 1).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlNo
End Sub

Any help/educating is appreciated!

 

[GJSBED]

Right Click on the button and pick assign macro then pick the macro you want associated with the macro.

 

[Toshura]

Right Click on the button and pick assign macro then pick the macro you want associated with the macro.

Thank you for responding! But, I do not have this option when right-clicking.

Right Click Menu Options =
-Cut
-Copy
-Paste
-Properties
-View Code
-ToggleButton Object
-Grouping
-Order
-Format Control...

I'm working in the VBA screen and the code for the other buttons in this sheet references the toggle button. i.e.

Private Sub ToggleButton4_Click()

This does not work for the Sub Sort_Me_Please(). I can get it to work by pressing play in the VBA screen.