Private Sub Office_ClipBoard()
With Application
     If Val(.Version) = 9 Then
        With .CommandBars("ClipBoard").Controls(4)
             If .Enabled = True Then .Execute
        End With
     Else
       MsgBox "Пример только для MS Excel 2000"
     End If
End With
End Sub