Automatically advance cell reference in message box each year

[Ironman]

Hi and a Happy New Year to you!

I have this message box code

MsgBox "Monthly Tracking VBA: Change cell from AN1 to AO1 for " & Year(Now()), vbInformation, "New Year Update 2 of 2"

I'd be grateful for some code that will automatically advance the cell references each year, so Jan 1 2023 shows

"Monthly Tracking VBA: Change cell from AO1 to AP1 for " & Year(Now()), vbInformation, "New Year Update 2 of 2"

and so on at the start of each year.

Many thanks!

 

[NoSparks]

the column for the current year must already be unhidden

 Dim f As Range
  With Sheets("Monthly Tracking")
    Set f = .Range("1:1").Find(Year(Date), , xlValues)
    MsgBox "Monthly Tracking VBA: Change cell from " & f.Offset(, -1).Address(0, 0) & " to " & f.Address(0, 0) & " for " & Year(Now()), vbInformation, "New Year Update 2 of 2"
  End With

 

[Michael M]

OR

With Sheets("Monthly Tracking")
MsgBox "Monthly Tracking VBA: " & .Cells(1, .UsedRange.SpecialCells(xlCellTypeVisible).Columns.Count).Value & " " & Year(Now()), vbInformation, "New Year Update 2 of 2"
End With

 

[NoSparks]

Or, if the current year column isn't already unhidden,
this can unhide it too if need be

Dim f As Range
  With Sheets("Monthly Tracking")
    Set f = .Range("1:1").Find(Year(Date) - 1, , xlValues)
    'f.Offset(, 1).EntireColumn.Hidden = False
    MsgBox "Monthly Tracking VBA: Change cell from " & f.Address(0, 0) & " to " & f.Offset(, 1).Address(0, 0) & " for " & Year(Now()), vbInformation, "New Year Update 2 of 2"
  End With

 

[Ironman]

As ever, thanks ever so much for your time, gents!

@Michael M - I tried your latest solution and it unfortunately happened to conflict with the same Selection_Change event that your code is reminding me about.
Edit: I also tried your first solution

Dim lc As Integer
With Sheets("Monthly Tracking")
MsgBox "Monthly Tracking VBA: " & .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column).Value & " " & Year(Now()), vbInformation, "New Year Update 2 of 2"
End With

And it returned "40 2022" which I guess is almost there (current year isn't hidden)

@NoSparks - your code works perfectly - thanks ever so much!

 

[NoSparks]

You're welcome.
FYI: Michael M's first solution does what you asked for based on your response in post 5