Function Get_Hyperlink_Address(ByVal rCell As Range) As String
    Dim strHyperlink As String
    If rCell.Hyperlinks.Count = 0 Then
        strHyperlink = rCell.Formula
        If Mid$(strHyperlink, 2, 9) = "HYPERLINK" Then
            strHyperlink = Split(strHyperlink, "img=", 2)(1)
            strHyperlink = Left(strHyperlink, InStr(strHyperlink, """") - 1)
            Get_Hyperlink_Address = "http://img.simba-trade.ru/site1/" & strHyperlink & "_b.jpg"
        Else
            Get_Hyperlink_Address = "В ячейке нет гиперссылки!"
        End If
    Else
        strHyperlink = rCell.Hyperlinks(rCell.Hyperlinks.Count).Address
        strHyperlink = Mid(strHyperlink, InStrRev(strHyperlink, "=") + 1)
        Get_Hyperlink_Address = "http://img.simba-trade.ru/site1/" & strHyperlink & "_b.jpg"
    End If
End Function