how to rename 12 cell at one time? I used below code but I dont seem it like a proper way because it is too long.

Worksheets("Sheet1").Range("C7").Value = "Jan"
Worksheets("Sheet1").Range("D7").Value = "Feb"
Worksheets("Sheet1").Range("E7").Value = "Mar"
Worksheets("Sheet1").Range("F7").Value = "Apr"
Worksheets("Sheet1").Range("G7").Value = "May"
Worksheets("Sheet1").Range("H7").Value = "Jun"
Worksheets("Sheet1").Range("I7").Value = "Jul"
Worksheets("Sheet1").Range("J7").Value = "Aug"
Worksheets("Sheet1").Range("K7").Value = "Sep"
Worksheets("Sheet1").Range("L7").Value = "Oct"
Worksheets("Sheet1").Range("M7").Value = "Nov"
Worksheets("Sheet1").Range("N7").Value = "Dis"