Очевидно, что проблема в отсутствии кавычек в названиях диапазонов, в строках:
[vba]Код
Sheets(1).Range(B2).Value = xmlresponse.SelectNodes("//current/temperature/@value")(0).Text
Sheets(1).Range(B3).Value = xmlresponse.SelectNodes("//current/precipitation/@mode")(0).Text
Sheets(1).Range(B4).Value = xmlresponse.SelectNodes("//current/wind/speed/@name")(0).Text
[/vba]
их нужно добавить:
[vba]Код
Sheets(1).Range("B2").Value = xmlresponse.SelectNodes("//current/temperature/@value")(0).Text
Sheets(1).Range("B3").Value = xmlresponse.SelectNodes("//current/precipitation/@mode")(0).Text
Sheets(1).Range"(B4").Value = xmlresponse.SelectNodes("//current/wind/speed/@name")(0).Text
[/vba]