How to copy value of selected cell to windows clipboard?

[1tane1]

Sub basvuruac()
    With New DataObject
        SetText ActiveCell.Value
        PutInClipboard
    End With
    On Error GoTo 1
    Call Shell(Environ$("COMSPEC") & " /c ""C:\Documents and Settings\burak\Desktop\# Başvurular\Bitmeyenler\islembekleyen.bat""", vbNormalFocus)
    Exit Sub
1:           MsgBox Err.Description
End Sub

I have the code above. I need to copy active cell value for my other uses. Someone said the answer above in bold but then I got error. Could you give me a hint please?

Selection.Copy
Application.CutCopyMode = False

doesn't work.

Selection.Copy

works but I don't want this cell remain as selected.