extracting cell address in via

[martinargimon]

HI there,
I have been battling to extract the cell address and then copy it to another cell ( see code below)
The bold comments are my thought process for this , but it does not work
Could you please help.
many thanks
Regards
Martin Argimon

Private Sub CmdButAssignParcelBeneficiaries_Click()

Dim ParcelNo As Range
Dim DestinationRange As Range
 ' Dim CellAddress As Range

Sheets("SitePlan").Activate
Set ParcelNo = Application.InputBox(Prompt:="Choose cell to copy", Type:=8)
 ' CellAddress = ParcelNo.Address

Sheets("Beneficiaries_Burials").Activate
Set DestinationRange = Application.InputBox(Prompt:="Choose Destination cell", Type:=8)

ParcelNo.Copy DestinationRange
 ' CellAddress.Copy DestinationRange

End Sub

 

[GraH - Guido]

Why copy in the last bold statement?

Might it be DestinationRange = CellAddress

I believe CellAddress is not a range in this case, it could be a string.

 

[vletm]

martinargimon
What do You write to each InPutBox?

You're copying inputted ParcelNo-variables value to inputted DestinationRange-value
( no matter what values are in sheets )
... or what is Your plan?

 

[martinargimon]

Hi Guys,
Thanks a lot. I have changed to the suggestion by 'GraH- Guido': .....Might it be DestinationRange = CellAddress
and it worked perfectly. !!
Thanks very much, Indeed there was NO need for a .copy method
Kind regards
Martin