Activecell.value = constName
where you replace constName with the name of the constant

--
Hth

Kassie Kasselman
Change xxx to hotmail


"Rick" wrote:

When using this function : Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

How do I change it to past a Public Constant?