Search code examples
excelcellvba

Rename multiple cell

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"
Solution

  • You can set an array directly:

    Dim myArray As Array ' = ...

Worksheets("Sheet1").Range("C7:N7").Value = myArray

    If you are using Excel VBA (Macro) you can declare your array this way:

    Dim myArray() As Variant
myArray = Array("Jun", "Feb", "Mar", "Apr", "May") 'etc