Sub Test
ThisWorkbook.Sheets("Sheet1").Range("A1") = Date
ThisWorkbook.Sheets("Sheet1").Range("A2") = Time
End Sub
Sub Test
ThisWorkbook.Sheets("Sheet1").Range("A1") = VBA.Date
ThisWorkbook.Sheets("Sheet1").Range("A2") = VBA.Time
End Sub
Range("A1") = Format(Date,"dd-mmmm-yyyy")
Range("A2") = Format(Time,"hh:mm")