При копировании,текст автоматически записывается в ячейку - VBA

Формулировка задачи:

Доброго времени суток, помогите, пожалуйста, написать макрос: Надо чтобы когда копируешь любой текст (например ссылку в браузере), из буфера обмена автоматически записывалось в одну и ту же ячейку (например ячейку А1). т.е. если я скопирую сначала один текст (текст: ААА), в ячейку А1 - запишется ААА если я скопирую затем другой текст (текст: БББ), в ячейке А1 - заменится текст на БББ

Решение задачи: «При копировании,текст автоматически записывается в ячейку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Clip1()
Static d As Object, c As Range
  If d Is Nothing Then 'первый запуск
    Set d = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject
    Set c = Range("A1") 'вставьте нужный адрес
  End If
  On Error GoTo 1
  d.GetFromClipboard
  c = d.GetText
1 Application.OnTime Now + #12:00:01 AM#, "Clip1"
End Sub