Sætte markering i A1 i alle ark

Hej eksperter, hvorfor virker dette ikke:

Sub test()

    For Each Worksheet In Application.Worksheets
        Range("A1").Select
    Next Worksheet

End Sub

(den skal blot sætte vælge A1 i alle ark, så den ikke står underlige steder, når man kigger arkene igennem efter kørsel)