Sub UnexpectedProperty()
    Range("B1:B2").value = "1"
    Range("A1:A2").value = Range("B1:B2").value
    Stop
    Range("B1:B2") = "1"
    Range("A1:A2") = Range("B1:B2")
End Sub

Set dicCopy = dic

Set r1 = Range("A1")
Set r2 = Range("A2")

Set r2 = r1

Set dic = CreateObject("Scripting.Dictionary")          'создали новый объект, ОС выделила под него ссылку на кусочек памяти
Set dicCopy = CreateObject("Scripting.Dictionary")  'создали новый объект, ОС выделила под него ссылку на кусочек памяти

Set dicCopy = dic

Set rr = Range("A1") 

=СУММПРОИЗВ((F3:F18)*{0:0:0:1:0:0:0:0:1:0:0:0:0:0:0:1})/СУММПРОИЗВ(--(((F3:F18)*{0:0:0:1:0:0:0:0:1:0:0:0:0:0:0:1})>0))

=СРЗНАЧЕСЛИМН(F3:F18;Лист2!A3:A18;1;F3:F18;"<>0")

    textPart = "\"" км\/ч\"""
    targetCell.NumberFormat = "0 " & textPart

"?" & """" & textPart & """"

oHttp.setProxy 2, "192.168.1.1:port" 'IP и порт, естественно, свои
oHttp.setProxyCredentials "username", "user_password" 'если надо логиниться

targetCell.NumberFormat = "0 км\/ч"

    Dim textPart$, x
    textPart = "*км/ч"
    'перечисляем все символы, которые должны отображаться как есть
    'и добавляем к ним левый слеш - спец.сивол,
    'который говорит формату использовать следующий за ним символ "как есть"
    For Each x In Array("/", "*")
        textPart = Replace(textPart, x, "\" & x)
    Next
    targetCell.NumberFormat = "0 " & textPart

With TempWB.PublishObjects.Add

TempWB.WebOptions.Encoding = msoEncodingCyrillic

Private Sub Workbook_Open()
    Dim opt As OptionButton, wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        For Each opt In wsh.OptionButtons
            opt.Value = xlOff
        Next opt
    Next
End Sub