ByVal Target question

[Patricia0923]

I have created a spreadsheet to do the following...

Upon entering a valid date in cell C1, VBA runs the code for R2D2.

The code I used for this is:

If Target.Address = "$C$1" Then

Application.Run "R2D2"

This works fine except the spreadsheet will also run if the cell is blank and you click in it and press enter, and it will also run if you put in an invalid date and press enter.

Any suggestions would be appreciated!

Thanks!

 

[RoryA]

You could add an IsDate check (it's not perfect as IsDate is pretty lenient, but it will probably do):

If Target.Address = "$C$1" Then

If IsDate(Range("C1").Value) Then Call R2D2

 

[Patricia0923]

You could add an IsDate check (it's not perfect as IsDate is pretty lenient, but it will probably do):

If Target.Address = "$C$1" Then

If IsDate(Range("C1").Value) Then Call R2D2

Thanks for your quick reply.
Yes, that worked perfectly!

You are my hero!!


I just had to add another End If to close the additional If statement.
I have learned so much over the past three weeks!
But there's still sooo much!

Have a great day!