Macro to copy a specific cell and paste in another cell, for all sheets in workbook

Hi

I have a macro that will cut and paste cell B11 to cell A13. I need it to do that for every sheet in the workbook. Can someone please help me complete this macro?

Sub CellCopy()

' CellCopy Macro

Sheets(1).Activate

For Each Sheet In Sheets

If Sheet.Index  1 Then

    Range("B11").Select

    Selection.Cut Destination:=Range("A13")

    Range("A13").Select

    End If

Next Sheet

End Sub

FYI, I'm doing this from my phone, so it might not be formatted correctly.