How to use array in worksheets()

Hello I'd like to copy from one worksheet to multiple but I don't know if it is possible to use array in worksheets().

Dim i As Variant
Dim ar() As Variant
i = 0
ar = Array("PoMil", "PoMir", "PoA", "ÚtD", "ÚtMil", "ÚtMir", "ÚtA", "StD", "StMil", "StMir", "StA", "ČtD", "ČtMil", "ČtMir", "ČtA", "PáD", "PáMir", "PáA")
For Each i In ar

Worksheets("PoD").Range("A1").Copy Worksheets(ar).Range("A1")

Next i