Well, I figured it out... This only took about 4-1/2 hours... LOL! I used this code on each Worksheet in the VBR editor:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:C35")) Is Nothing Then
Range("A5:H35").Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range("B5") _
, Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
And with this Macro:
Sub AutoSort()
'
' AutoSort Macro
' Auto sorts based on the first 3 columns.
'
' Keyboard Shortcut: Option+Cmd+s
'
Range("A5:H35").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range("B5") _
, Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
This seems to work, and it now autosorts dynamically based upon mainly the first column (publication name), followed by the second column (date), then the third column (advertiser name).
Hopefully this can help any others in the future.
Bookmarks