Ok fixed my own problem, just added an ActiveSheet. in front of the Range in the selection statement and that solved it.

Selection.Sort Key1:=ActiveSheet.Range("C7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom