Recorded macro placed in code shows not supported

[ipbr21054]

Hi,
I have the following working code in use.

Private Sub Worksheet_Activate()  Range("A3") = UCase(Format(Now, "mmmm"))
  Range("D3") = Year(Now)
  Range("A1:E3").HorizontalAlignment = xlCenter
  Range("A1:E3").VerticalAlignment = xlCenter
  Range("A1:E30, D31:E31, B35:C37, E35:E37 ").Borders.LineStyle = xlContinuous
  Range("A5").Select
  
End Sub

I then recorded a macro to format a range to TEXT of which is shown below,

Range("A5:A30").Selection.NumberFormat = "@"

When i add this line of code to the Activate code i am told not supported.
My goal is when the worksheet is opened the range will always be TEXT format.

Can you please advise.

 

[Fluff]

Remove .Selection from that line

 

[mumps]

Try:

 Range("A5:A30").NumberFormat = "@"

 

[ipbr21054]

Many thanks & have a nice day.

works fine.

 

[Fluff]

Glad we could help & thanks for the feedback