Copy w/o Quotation Marks on Selected Cells

[iSoleil]

VBA newbie here. I'm trying to paste from excel to a notepad without quotation marks. I found the code below but it only works for the active cell and not a selected range.

Sub CopyCellContents()
Dim objData As New DataObject
Dim strTemp As String
strTemp = ActiveCell.Value
objData.SetText (strTemp)
objData.PutInClipboard
End Sub

Appreciate any inputs. Thank you!