how to simplify this vba code

hello all, maybe some of you can help simplify my code.
i would like automate the header title to Field+ColumnNo in all worksheets of an excel.
below is my vba code:

Sub HeaderTitle()   Dim WS As 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 (markup):

how to simplify this vba code