Code to insert current date (but NOT current time)

Friends,

I am creating a macro that will insert the current date on a spreadsheet. I used this code:

    Dim Today
    Today = Now
    Range("G2").Select
    ActiveCell.FormulaR1C1 = Today

The problem is that I only want the date ... not the time showing at all. This is important because the spreadsheet is going to be saved as a CSV and imported into another program. Importing the time would be a problem.

Can you help?

Thank you so much!
Mike