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

Sub CellCopy()

Dim ws As Worksheet

For Each ws In Sheets

    With ws

     .Range("B11").Cut Destination:=.Range("A13")
    
    End With

Next ws

End Sub