Naming Cells Using Text in Adjoining Cells

[zandalis]

I have a workbook containing weekly budgets for an entire fiscal year. Each worksheet contains one week's budget. Therefore there are 52 worksheets, and the amounts are changing every week. Each worksheet has project codes in Cells A2:A94, and dollar amounts in cells D2:D94. I would like to name each cell containing the dollar figures as a combination of the worsheet it is on and its coresponding project code. For instance, for project code ABCD in week 2, that dollar amount cell would be called "ABCDWeek2."

Instead of having to go through and manually name each cell, is there a way to automate this some or use formulas of adjoining cell data to name cells?

 

[venkat1926]

assuming row no. contains column headings try this macro

Sub naming()
Dim j As Integer, k As Integer, r As Range, c As Range
j = Worksheets.Count
For k = 1 To j
With Worksheets(k)
'MsgBox k
Set r = Range(.Range("D2"), .Range("D2").End(xlDown))
For Each c In r
c.Name = Cells(c.Row, "A").Value & Worksheets(k).Name
Next c
End With
Next k

End Sub