Call Macros in other worksheets or selection change event?

[Bob Phillips]

Try this

[vba]
Private Sub Worksheet_Activate()

With Sheets("A Grade Rd1")
With .Range("A2", .Range("F31").End(xlUp))
.Sort key1:=Range("F2"), _
Order1:=xlAscending, _
Key2:=Range("E2"), _
Order2:=xlAscending, _
Key3:=Range("D2"), _
Order3:=xlAscending
.Sort key1:=Range("B2"), _
Order1:=xlAscending, _
Key2:=Range("C2"), _
Order2:=xlAscending
End With
End With

With Sheets("A Grade Nett Rd")
With .Range("A2", .Range("F31").End(xlUp))
.Sort key1:=Range("F2"), _
Order1:=xlAscending, _
Key2:=Range("E2"), _
Order2:=xlAscending, _
Key3:=Range("D2"), _
Order3:=xlAscending
.Sort key1:=Range("B2"), _
Order1:=xlAscending, _
Key2:=Range("C2"), _
Order2:=xlAscending
End With
End With

With Sheets("B Grade Rd1").Select
With .Range("A2", .Range("F31").End(xlUp))
.Sort key1:=Range("F2"), _
Order1:=xlAscending, _
Key2:=Range("E2"), _
Order2:=xlAscending, _
Key3:=Range("D2"), _
Order3:=xlAscending
.Sort key1:=Range("B2"), _
Order1:=xlAscending, _
Key2:=Range("C2"), _
Order2:=xlAscending
End With
End With

With Sheets("B Grade Nett Rd1")
With .Range("A2", .Range("F31").End(xlUp))
.Sort key1:=Range("F2"), _
Order1:=xlAscending, _
Key2:=Range("E2"), _
Order2:=xlAscending, _
Key3:=Range("D2"), _
Order3:=xlAscending
.Sort key1:=Range("B2"), _
Order1:=xlAscending, _
Key2:=Range("C2"), _
Order2:=xlAscending
End With
End With

End Sub
[/vba]