Once again many thanks, but I can see the code isn't
going to do what I want.

The user selects a name from a drop down list in the
Source Worksheet. On selecting that name the formula in
cell A3 returns a reference to a cell address, in this
case M7. (If they select a different name it could return
anything from M1:M500)

I want to then go to cell M7 in worksheet (Target) and
enter now(). The code I entered in my original question
works perfectly for the contents of cell A3.

I can repeat it 21 times and know that would do exactly
what I want but I just think there must be an easier way.

Thanks very much for your time.


-----Original Message-----
OR,
Sub fillinranges()
With Worksheets("Sheet23").Range("a3,c3,e3")
..Value = Now()
..NumberFormat = "mm/dd/yyyy"
End With
End Sub

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
try this without even going to the worksheet

Worksheets("Source").Range("a3,c3,e3") = Now()

--
Don Guillett
SalesAid Software

"hmws" wrote in
message
...
I have a range of cells (a3,c3,e3,a12,c12 etc)
containing
variable cell references.

I would like to be able to go to/lookup a Target
Worksheet and enter the date in that cell.

The formula below returns now() in my target sheet.

sub enterdate()

Application.Goto Worksheets("Target") _
.Range(Worksheets("Source").Range("a3").Value),
True
ActiveCell = Now()

End sub

Is there a way to speed this up by doing the other
cells
in the source worksheet (ie c3,e3,a12,c12 etc) at the
same time?

Thank you




.