Rename multiple cell

[airbatucampur92]

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"

[pareshj]

Hi,

What exactly you want to do with the code? Do you want to find/replace within the code or reduce the number of line of code.

If you want to reduce the line of code, follow the below steps:

Please Login or Register  to view this content.

Regards,
Paresh J

[benishiryo]

welcome to the forum. not a vba expert, but this may come in useful too if you have non dates & texts sort of data you wanna fill:

Please Login or Register  to view this content.

[airbatucampur92]

actually i want to name all the 12 cells from range C7:N7 with months..
and i think code that i stated above is too long even though its working.
should i you array? i found these code but i don't know what is wrong with the code
im still new in these vba codes..

Sub test()
Dim month As Variant

Worksheets("Sheet1").Range("C7:N7").Value = month
month = Array("Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dis")
End Sub

[pareshj]

Hi,

One slight mistake with your above code, just check this:

Please Login or Register  to view this content.

Regards,
Paresh J

[airbatucampur92]

yes! thanks. it works!!!

[pareshj]

Hi airbatucampur92,

If you think you got your solution then please mark this thread as SOLVED and click * Add reputation as way to say thanks!!!!


Regards,
Paresh J

[airbatucampur92]

thanks! it works!!!