Hi all,
I am trying to get a data set to automatically reorder itself when a value in a cell in a specified column is changed (in the example spreadsheet it would be column C).
This is what I have so far which works when I manually run the sub, but not when I change a value:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C7")) Is Nothing Then
Sub SortDataWithHeader()
Range("Relabel").Sort Key1:=Range("C2"), Order1:=xlAscending
End If
End Sub
What am I doing wrong?
Many thanks in advance!
Bookmarks