Now Function Question

[Guest]

I'm trying to use the Now function in VBA. I continue to get a compile
error: Expected function or variable. The error highlights on the word, Now.
The formula below is an example of the code.

Sub Dateparttest()
Dim today
today = Month(Now)
Range("b1").Value = today

End Sub

 

[Mark Lincoln]

To put the current date into B1, just do this:

Range("B1").Value = Date

In VBA, Date returns the current system date.

Mark Lincoln

 

[Rick Rothstein \(MVP - VB\)]

I'm trying to use the Now function in VBA. I continue to get a compile

error: Expected function or variable. The error highlights on the word,
Now.
The formula below is an example of the code.

Sub Dateparttest()
Dim today
today = Month(Now)
Range("b1").Value = today
End Sub

Although I am not sure why VBA cares about it, the variable name "today" is
where your problem is. I'm guessing it is a reserved keyword for VBA inside
of Excel... change the variable name and your code should work fine (unless
you stumble upon another keyword, that is<g>).

Rick

 

[Guest]

Try this:
Sub Dateparttest()
Today = Now
Range("B1").Value = Today
Range("B1").NumberFormat = "mmmm"

End Sub

 

[Mark Lincoln]

Although I am not sure why VBA cares about it, the variable name "today" is
where your problem is. I'm guessing it is a reserved keyword for VBA inside
of Excel... change the variable name and your code should work fine (unless
you stumble upon another keyword, that is<g>).

Rick

Today is an Excel function.

 

[Mark Lincoln]

In my previous post, I missed that you are looking to put the month
into B1. If you set the formatting of B1 to "mmmm", it will display
the month.

 

[Rick Rothstein \(MVP - VB\)]

I'm trying to use the Now function in VBA. I continue to get a compile

Today is an Excel function.

I realize that at the spreadsheet level, but Today does not seem to be
"defined" within the VBA world itself.

Rick

 

[Don Guillett]

sub don()'will put 6 in cell b1
range("b1")=month(date)
end sub

 

[Mark Lincoln]

That's what I was trying to say. One uses Date in VBA, but Today in
an Excel workbook. And people wonder why I often look confused....

Mark Lincoln

 

[Vijay Chary]

Hi Nausett !!
Today is an Excel Function similar to Now. Try
using another variable name instead of Today !!

 

[Don Guillett]

sub puttodaysdateincellb1()
range("b1")=date
end sub