Replace a text with a future data

[EdwardOcampo]

HI!
Trying to replace this:

"Current + 4 Shortages" with "January Shortages"

Code: Cells.Replace what:="Cur+4 Shortage", Replacement:=MonthName(4 + Month(Now())) & " Shortage

The syntax was working last month, but It's not working on this month. Weird..

[offthelip]

it is because 9+4 =13 which isn't a month number, while 8+4 =12 which is december

[gmaxey]

I don't see how "Current + 4" could ever be found using search for "Cur+4"

Cells.Replace What:="Current + 4 Shortages", Replacement:= _
        MonthName(Month(DateAdd("M", 4, Now))) & " Shortages"

[Kenneth Hobs]

Sub Main()  
  If 4 + Month(Date) > 12 Then
    Cells.Replace what:="Current + 4 Shortage", Replacement:=MonthName((4 + Month(Date) - 12)) & " Shortage"
    Else
    Cells.Replace what:="Current + 4 Shortage", Replacement:=MonthName(4 + Month(Date)) & " Shortage"
  End If
End Sub

[EdwardOcampo]

Hi Greg,

It was typo on my end.

By the way, it worked... Thank you so much.

Enjoy your day.

[gmaxey]

You're welcome. I didn't even pick up the "13" issue because I just don't ever code that way.

[snb]

Sub M_snb()
    Cells.Replace "Current + 4", MonthName((Month(Date) + 3) Mod 12 + 1)
End Sub