VBA Code to Sort a list with column header activating the code

Actually it does not as every cell can be sorted. Is there a way to restrict it to the header row only having the double click feature and no others?