Title New Column Text plus Today's Date

[CJG19]

Good Afternoon,

I wonder if anyone would be able to help.

I am writing a macro that adds a column to the end of a table, then renames that column with "Remaining PO DD-MMM-YY" with DD-MMM-YY being today's date. Previous columns will be kept, so I have to navigate to the cell.

I have got to this, but it doesn't seem to be working. I know it is probably something easy but I keep getting the attached error message.

Sub Add_New()

    LDate = Format(Date, "dd-mmm-yy")
 
  Range("A3").End(xlToRight).Select
    ActiveCell.Name = "Remaining PO" & " " & LDate
 
End Sub

Thank you in advance

CJG19

 

[Joe4]

It should be:

ActiveCell.Value

not

ActiveCell.Name

Note that you can just combine these two lines:

  Range("A3").End(xlToRight).Select
    ActiveCell.Value = "Remaining PO" & " " & LDate

to this:

  Range("A3").End(xlToRight).Value = "Remaining PO " & LDate

Or even better, all your code could be combined to a single line:

  Range("A3").End(xlToRight).Value = "Remaining PO " & Format(Date, "dd-mmm-yy")

 

[CJG19]

Hey Joe4,

Amazing, thank you so much for your help!

CJG19

 

[Joe4]

You are welcome.
Glad I was able to help!