Hi there.

This should be very simple even for me but I am running into a problem, this code will work perhaps once, then it won't work again.

I have a number of columns I just want a button above each to sort the list alpahbetically by the column chosen.

Sub viewbyarea()
'
' viewbyarea Macro
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range("J11:J200").Select
    Selection.Sort Key1:=Range("J11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B10").Select
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub