With Workbooks("Tabele_2009m").Worksheets("XML").Shapes("EDSWebBrowser")

      With Workbooks("Tabele_2009m").Worksheets("XML").Shapes("EDSWebBrowser")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/eds"

      With Workbooks("Tabele_2009m").Worksheets("HELP").Shapes("WebTabeleJautajums")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/jaut1407"
     
      With Workbooks("IepirkumuKarte_7A").Worksheets("Lapa1").Shapes("Karte")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/ipkarte/"

      With Workbooks("Tabele_2009m").Worksheets("Tabele").Shapes("WebInfo")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/tabeleinfo"

      With Workbooks("Tabele_2009m_UR").Worksheets("Tabele").Shapes("WebInfo")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/info_ur"

      With Workbooks("rusauto").Worksheets("Celazime").Shapes("WebInfo")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/autobaner/"

With Workbooks("Tabele_2009m").Worksheets("Salary").Shapes("WebIenakNod")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=56880"

      With Workbooks("Tabele_2009m").Worksheets("Salary").Shapes("WebMinAlga")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=181633"

      With Workbooks("Tabele_2009m").Worksheets("NeapMin").Shapes("WebNeapMin")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=193599"

      With Workbooks("Tabele_2009m").Worksheets("SocLikmes").Shapes("WebSocLik")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=185429&from=off"
 
****************************************************************************************************
Sub EDSWebBrowser()
      With Workbooks("Tabele_2009m").Worksheets("XML").Shapes("EDSWebBrowser")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/eds"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub

Sub JautWebBrowser()
      With Workbooks("Tabele_2009m").Worksheets("HELP").Shapes("WebTabeleJautajums")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/jaut1407"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'WebIenakNod
Sub JautWebBrowserIenakNod()
      With Workbooks("Tabele_2009m").Worksheets("Salary").Shapes("WebIenakNod")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=56880"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'WebMinAlga
Sub JautWebBrowserWebMinAlga()
      With Workbooks("Tabele_2009m").Worksheets("Salary").Shapes("WebMinAlga")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=181633"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'WebMinAlga
Sub JautWebBrowserWebNeapMin()
      With Workbooks("Tabele_2009m").Worksheets("NeapMin").Shapes("WebNeapMin")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=193599"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'WebBrowserSocLikmes
Sub JautWebBrowserWebBrowserSocLikmes()
      With Workbooks("Tabele_2009m").Worksheets("SocLikmes").Shapes("WebSocLik")
        .OLEFormat.Object.Object.Navigate2 "http://www.likumi.lv/doc.php?id=185429&from=off"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'http://sites.google.com/site/testindex8/Home
Sub JautWebBrowserIepirkKarte()
      With Workbooks("IepirkumuKarte_7A").Worksheets("Lapa1").Shapes("Karte")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/ipkarte/"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub

'http://sites.google.com/site/testindex8/Home
Sub WebBrowser_WebInfo()
      With Workbooks("Tabele_2009m").Worksheets("Tabele").Shapes("WebInfo")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/tabeleinfo"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'http://sites.google.com/site/enotars/info_ur
Sub WebBrowser_WebInfo_UR()
      With Workbooks("Tabele_2009m_UR").Worksheets("Tabele").Shapes("WebInfo")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/enotars/info_ur"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub
'http://sites.google.com/site/testindex8/Home
Sub WebBrowser_autobaner()
      With Workbooks("rusauto").Worksheets("Celazime").Shapes("WebInfo")
        .OLEFormat.Object.Object.Navigate2 "http://sites.google.com/site/autobaner/"
        .Fill.ForeColor.SchemeColor = 26
      End With
End Sub