or, if the activecell is not on sheet protect and you just want to use its
address (and it changes in the "meantime")

Dim bereich as Range
set bereich = ActiveCell

..
..
..

Worksheets("Protect").Range(bereich.Address).Value = dteDatum

--
Regards,
Tom Ogilvy

"bigburt" wrote in message
oups.com...
Hello programmers !

Here is my problem :

I wouldlike to put some value into a sheet. the destination cells
depends on the selection. The selection is always type of Range. But i
have to use a conversion to write it down .

Dim bereich as range

AZelle = CStr(ActiveCell.Address)
..
..
..
Worksheets("Protect").Range(AZelle).Value = dteDatum

I dont´t like this . Why can´t i use

Worksheets("Protect").bereich.Value = dteDatum