Hi,

I would like to be able to have my userform give back the
information message if there is already a value in the
destination saying -

"A2 already has a value! would you like
to replace " + x " with " y "?"

my code looks like this

- Set Rng = shData.Range("I" & Application.Match(CLng
(sh.Range("D6")), shData.Range("B:B"), 0))
Rng.Value = sh.Range("D8").Text

Thank you for your help