Formatting date brought in from another cell?

[jmpatrick]

Good morning. I'm using this code to populate a cell with a date from another cell:

Sheets("Calendar").Range("P" & ActiveCell.Row).Value = Sheets("Calendar").Range("DB" & ActiveCell.Row).Text

The source date in column DB is formatted as such: 8/31/2022 7:47 AM

When it displays in column P I need it to be formatted like this: 8/31

I tried variations of this without luck:

Sheets("Calendar").Range("P" & ActiveCell.Row).Value = Sheets("Calendar").Range("DB" & ActiveCell.Row).Text, Format("M/D")

 

[jmpatrick]

Maybe this?:

    Sheets("Calendar").Range("P" & ActiveCell.Row).Value = Sheets("Calendar").Range("DB" & ActiveCell.Row).Text
   
    ActiveCell.NumberFormat = "M/D"

 

[jmpatrick]

This does not work:

    Sheets("Calendar").Range("P" & ActiveCell.Row).Value = "'" & Sheets("Calendar").Range("DB" & ActiveCell.Row).Value
    
    ActiveCell.NumberFormat = "M/D"