Hi,
What do need to add to this piece of coding so that the it doesn't stop if no information is inserted in cell Q5
theString = Range(" Q5").Value 'cast to string
theObject.SetText theString
theObject.PutInClipboard 'copy from cell B2 to clipboard...