Hello Experts !

I am executing this code:

Sub AutoTaketoRelevantSheet()
'
' AutoTaketoRelevantSheet Macro
'

'
    Application.ScreenUpdating = False
    Sheets("Names").Select
    Range("A1").Select
    Selection.AutoFilter
    Range("B1").Select
    ActiveSheet.Range("A:C").AutoFilter Field:=2, Criteria1:="Green"
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Green Team").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Names").Select
    Application.CutCopyMode = False
    Range("B1").Select
    ActiveSheet.Range("A:C").AutoFilter Field:=2, Criteria1:="Blue"
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Blue Team").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Names").Select
    Application.CutCopyMode = False
    Range("B1").Select
    ActiveSheet.Range("A:C").AutoFilter Field:=2, Criteria1:="=Red"
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Red Team").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Names").Select
    Application.CutCopyMode = False
    Range("B1").Select
    ActiveSheet.Range("A:C").AutoFilter Field:=2
    Range("A1").Select
    Selection.AutoFilter
    Application.ScreenUpdating = True
End Sub
How can I add timer to this code ? I searched a site and it showed a code, which has Start = Time after Application.ScreenUpdating = False
and at the end, it has Next, then next line, MsgBox Timer - Start & "Seconds".

I added this to my above code but didn't work ?

Can an expert please show me how to add time code to above code ?

Thanks