{quote}{login=}{date=10.06.2008 03:05}{thema=}{post}http://www.planetaexcel.ru/forum.php?thread_id=960{/post}{/quote}  
 
Да.. это автоматический запуск макроса, при открытии книги, а мне нужно, чтобы срабатывало в пределённой ячейке, т.к. у меня макрос обновления валюты. И у меня 2 макроса.

Shatz, если какой-либо макрос что-то делает в конкретной ячейке, то он и при автоматическом запуске сделает тоже самое. Это понятно?

{quote}{login=}{date=10.06.2008 05:41}{thema=}{post}Shatz, если какой-либо макрос что-то делает в конкретной ячейке, то он и при автоматическом запуске сделает тоже самое. Это понятно?{/post}{/quote}  
 
Понятно... просто ещё не всё в макросах понимаю, прошу прощения!    
Вот мой макрос  
Sub GetDollar()  
  Dim sURI As String  
   Dim oHttp As Object  
   Dim htmlcode, outstr As String  
   Dim inpdate As Date  
   Dim d, m, y As Integer  
     
   inpdate = CDate(InputBox("Ââåäèòå äàòó â ôîðìàòå ÄÄ.ÌÌ.ÃÃÃÃ", _  
       "Êóðñ äîëëàðà", Date))  
   d = Format(inpdate, "dd")  
   m = Format(inpdate, "mm")  
   y = Format(inpdate, "yyyy")  
   sURI = "http://cbr.ru/currency_base/daily.asp?C_month= " & _  
           m & "&C_year=" & y & "&date_req=" & d & "%2F" & _  
           m & "%2F" & y  
   On Error Resume Next  
   Set oHttp = CreateObject("MSXML2.XMLHTTP")  
   If Err.Number <> 0 Then  
       Set oHttp = CreateObject("MSXML.XMLHTTPRequest")  
   End If  
   On Error GoTo 0  
   If oHttp Is Nothing Then  
       Exit Sub  
   End If  
   oHttp.Open "GET", sURI, False  
   oHttp.Send  
   htmlcode = oHttp.responseText  
   outstr = Mid(htmlcode, InStr(1, htmlcode, "USD") + 85, 7)  
   Set oHttp = Nothing  
   outstr = Replace(outstr, ",", ".")  
   ActiveCell.Value = outstr  
End Sub  
 
Как сделать его под определённую ячейку.. я только смог сделать кнопку, при нажатии на которую, ячейка которая выделена, получает значение курса

Попробуй замени строку:  
ActiveCell.Value = outstr  
на  
Лист1!Range("A1").Value = outstr  
и глянь что будет