Sub Link_Gret_Short_Fde()

strLink = fun_Concat_ar(2)

Call Open_Link_in_IE_XPLORE(strLink)

End Sub

Sub Open_Link_in_IE_XPLORE(ByVal strLink As String)

x = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & _

strLink, vbMaximizedFocus)

'x = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & " ""http://www.planetaexcel.ru""" , vbNormalNoFocus)

'x = Shell("""C:\Program Files\Internet Explorer\IEXPLORE.EXE""" & " ""http://www.planetaexcel.ru""", vbNormalNoFocus)

End Sub

Function fun_Concat_ar(ByVal int_Cln_ar As Integer)

Const CONST_int_RowStart As Integer = 7

Const CONST_int_RowEnd As Integer = 20

Dim ar As Variant, strLink As String

ar = Range(Cells(CONST_int_RowStart, int_Cln_ar), Cells(CONST_int_RowEnd, int_Cln_ar)).Value

strLink = ar(1, 1)

For i = LBound(ar) + 1 To UBound(ar)

strLink = strLink & ar(i, 1)

Next i

fun_Concat_ar = Trim(strLink)

End Function