how to simplify this vba code

Hello everyone, maybe some of you can help simplify my code.
I would like to automate the header title to Field + ColumnNo on all Excel worksheets.
Below is my vba code:

Sub HeaderTitle ()
Dim WS as a worksheet

For each WS in worksheets
WS.Range ("A1"). Value = "Field1"
WS.Range ("B1"). Value = "Field2"
WS.Range ("C1"). Value = "Field3"
WS.Range ("D1"). Value = "Field4"
WS.Range ("E1"). Value = "Field5"
WS.Range ("F1"). Value = "Field6"
WS.Range ("G1"). Value = "Field7" ...
Code (marked):

how to simplify this vba code