Using front end formula in vba

[MattNewby]

Hi,

Please can someone advise how I correct the following code, so that it will allow me to use a front end formula in VBA.

Code as follows:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell = today()
End Sub

Thanks
Matt

 

[Sektor]

ActiveCell = DateValue(Now)

 

[MattNewby]

Thanks

Matt

 

[Sektor]

Or you can create you own function Today:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    ActiveCell = Today
End Sub

Function Today() As String
    Today = DateValue(Now)
End Function

 

[Roli001]

Adding 'Application' before Excel function uses the application object to allow usage of that function in a VBA code i.e.

A = Application.Sum(Range("K1:M1"))

A = Application.Average(Range("K1:M1"))

Dim Res As Variant
Res = Application.VLookup(123,Range("A1:C100"),3,FALSE)

etc.

 

[Sektor]

May be you mixed up thread?