Named range in table

[esanel]

A named range in a table is copied down as I add rows.
When I do it in VBA it doesn’t work. (ActiveCell.Name = MonthName).
Can you help?

 

[JackDanIce]

Welcome to the board. Can you post your full code?

 

[esanel]

Sure it's,

Sub NewIncome()


Dim TableName As String
Dim MonthName As String


Application.Goto Reference:="Templet_Income"
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste



TableName = ActiveCell.Offset(-1, 0).Range("A1")
Selection.ListObject.Name = TableName
MonthName = TableName & "_name"
ActiveCell.Offset(1, 4).Range("A1").Select
ActiveCell.Name = MonthName


End Sub