Adding string text after the result of .Formula function

[KarimK9]

In my code, I am letting the user insert a desired date. I then use today's date and the user's input date to calculate the number of days that have passed since the input date & update it daily. This is the code.

Target.NumberFormat = "0"
Target.Formula = "=Today()- " & CLng(Target)

However, I am trying to add "Day/s Ago" after the formula output but it doesn't work (Ex: 4 Day/s Ago).
Tried to use & "Day/s Ago" after the formula but it didn't work.
Any clue how can I get it working?

 

[juddaaaa]

This should work for you

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = Empty Then Exit Sub
  If Target.CountLarge > 1 Then Exit Sub

  On Error Resume Next
  Target.Formula = "=DATEDIF(" & Target.Formula & ",TODAY(),""d"") & "" Days Ago"""
  On Error GoTo 0
End Sub

 

[KarimK9]

This should work for you

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = Empty Then Exit Sub
  If Target.CountLarge > 1 Then Exit Sub

  On Error Resume Next
  Target.Formula = "=DATEDIF(" & Target.Formula & ",TODAY(),""d"") & "" Days Ago"""
  On Error GoTo 0
End Sub

It actually worked, thank you so much mate!

 

[juddaaaa]

You're welcome

Welcome to the forum!