Making a Macro add a date after completing action

Hey Guys

I have created a Macro that creates a new CSV from a worksheet in my workbook
What I am trying to do is make it add a the date to B5 of my sheet called gobalsettings

Each time I try I keep getting the error

Run-time error '1004'
Method 'Range' of object'_Gobal" failed

Sub CreateCSV()

Dim strFileName As String

strFileName = Application.GetSaveAsFilename(filefilter:="Comma Seperated Values (*.csv), *.csv")

If strFileName <> "False" Then
    Sheets("products").Copy
    ActiveWorkbook.SaveAs strFileName, xlCSV
End If

Range("GobalSettings!B4").Value = Date

End Sub