Using VBA to change the contextual menus

Hi,

I've cobbled together the following two scripts to change how the
contextual menus look but I get a 'Run Time Error '5': Invalid
procedure call or arguement'.  When I debug it points to the line:

    Application.CommandBars("Cell").Controls("Insert...").Delete

If I comment this line out the script works fine but I can't work out
what's wrong with this line.

Any help would be greatly appreciated.

Many thanks,



Private Sub Workbook_Activate()
' This macro changes the contextual menus for Cells, Rows and Columns
to limit
' and control the user's ability to interact with the spreadsheet.

    Application.CommandBars("Column").Enabled = False

    Application.CommandBars("Cell").Reset

    Application.CommandBars("Cell").Controls("Cut").Delete
    Application.CommandBars("Cell").Controls("Insert...").Delete
    Application.CommandBars("Cell").Controls("Delete...").Delete
    Application.CommandBars("Cell").Controls("Format Cells...").Delete
    Application.CommandBars("Cell").Controls("Pick From Drop-down
List...").Delete
    Application.CommandBars("Cell").Controls("Add Watch").Delete
    Application.CommandBars("Cell").Controls("Create List...").Delete
    Application.CommandBars("Cell").Controls("Hyperlink...").Delete
    Application.CommandBars("Cell").Controls("Look Up...").Delete

    Application.CommandBars("Row").Reset

    Application.CommandBars("Row").Controls("Cut").Delete
    Application.CommandBars("Row").Controls("Copy").Delete
    Application.CommandBars("Row").Controls("Paste").Delete
    Application.CommandBars("Row").Controls("Paste Special...").Delete
    Application.CommandBars("Row").Controls("Insert...").Delete
    Application.CommandBars("Row").Controls("Delete...").Delete
    Application.CommandBars("Row").Controls("Clear Contents").Delete
    Application.CommandBars("Row").Controls("Format Cells...").Delete
    Application.CommandBars("Row").Controls("Row Height...").Delete
    Application.CommandBars("Row").Controls("Hide").Delete
    Application.CommandBars("Row").Controls("Unhide").Delete

    With Application.CommandBars("Row").Controls
     With .Add
        .Caption = "&Insert Row"
        .OnAction = ThisWorkbook.Name & "!InsertRow"
        .BeginGroup = True
     End With

     With .Add
        .Caption = "&Delete Row"
        .OnAction = ThisWorkbook.Name & "!DeleteRow"
     End With
   End With

End Sub

Private Sub Workbook_Deactivate()
' This macro reinstates the contextual menus to their standard state

    Application.CommandBars("Cell").Reset
    Application.CommandBars("Row").Reset
    Application.CommandBars("Column").Enabled = True
    Application.CommandBars("Column").Reset

End Sub
0
Mike
4/29/2010 12:38:26 PM
excel 39879 articles. 2 followers. Follow

4 Replies
5181 Views

Similar Articles

[PageSpeed] 1

Hi Mike

It looks good if you use a English version
are you sure Insert... is there before you run the code

Always use findcontrol with Id's if you do this, see :
http://www.rondebruin.nl/menuid.htm



-- 

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm



"Mike Magill" <mike.magill@gmail.com> wrote in message news:546ade76-324d-474d-81f3-61571f81611d@w36g2000yqw.googlegroups.com...
> Hi,
> 
> I've cobbled together the following two scripts to change how the
> contextual menus look but I get a 'Run Time Error '5': Invalid
> procedure call or arguement'.  When I debug it points to the line:
> 
>    Application.CommandBars("Cell").Controls("Insert...").Delete
> 
> If I comment this line out the script works fine but I can't work out
> what's wrong with this line.
> 
> Any help would be greatly appreciated.
> 
> Many thanks,
> 
> 
> 
> Private Sub Workbook_Activate()
> ' This macro changes the contextual menus for Cells, Rows and Columns
> to limit
> ' and control the user's ability to interact with the spreadsheet.
> 
>    Application.CommandBars("Column").Enabled = False
> 
>    Application.CommandBars("Cell").Reset
> 
>    Application.CommandBars("Cell").Controls("Cut").Delete
>    Application.CommandBars("Cell").Controls("Insert...").Delete
>    Application.CommandBars("Cell").Controls("Delete...").Delete
>    Application.CommandBars("Cell").Controls("Format Cells...").Delete
>    Application.CommandBars("Cell").Controls("Pick From Drop-down
> List...").Delete
>    Application.CommandBars("Cell").Controls("Add Watch").Delete
>    Application.CommandBars("Cell").Controls("Create List...").Delete
>    Application.CommandBars("Cell").Controls("Hyperlink...").Delete
>    Application.CommandBars("Cell").Controls("Look Up...").Delete
> 
>    Application.CommandBars("Row").Reset
> 
>    Application.CommandBars("Row").Controls("Cut").Delete
>    Application.CommandBars("Row").Controls("Copy").Delete
>    Application.CommandBars("Row").Controls("Paste").Delete
>    Application.CommandBars("Row").Controls("Paste Special...").Delete
>    Application.CommandBars("Row").Controls("Insert...").Delete
>    Application.CommandBars("Row").Controls("Delete...").Delete
>    Application.CommandBars("Row").Controls("Clear Contents").Delete
>    Application.CommandBars("Row").Controls("Format Cells...").Delete
>    Application.CommandBars("Row").Controls("Row Height...").Delete
>    Application.CommandBars("Row").Controls("Hide").Delete
>    Application.CommandBars("Row").Controls("Unhide").Delete
> 
>    With Application.CommandBars("Row").Controls
>     With .Add
>        .Caption = "&Insert Row"
>        .OnAction = ThisWorkbook.Name & "!InsertRow"
>        .BeginGroup = True
>     End With
> 
>     With .Add
>        .Caption = "&Delete Row"
>        .OnAction = ThisWorkbook.Name & "!DeleteRow"
>     End With
>   End With
> 
> End Sub
> 
> Private Sub Workbook_Deactivate()
> ' This macro reinstates the contextual menus to their standard state
> 
>    Application.CommandBars("Cell").Reset
>    Application.CommandBars("Row").Reset
>    Application.CommandBars("Column").Enabled = True
>    Application.CommandBars("Column").Reset
> 
> End Sub 
0
Ron
4/29/2010 9:23:14 PM
Ron, How do we do CUSTOM menus in xl2007??

-- 
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett@gmail.com
"Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message 
news:ORJ4xI%235KHA.5464@TK2MSFTNGP05.phx.gbl...
> Hi Mike
>
> It looks good if you use a English version
> are you sure Insert... is there before you run the code
>
> Always use findcontrol with Id's if you do this, see :
> http://www.rondebruin.nl/menuid.htm
>
>
>
> -- 
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
>
> "Mike Magill" <mike.magill@gmail.com> wrote in message 
> news:546ade76-324d-474d-81f3-61571f81611d@w36g2000yqw.googlegroups.com...
>> Hi,
>>
>> I've cobbled together the following two scripts to change how the
>> contextual menus look but I get a 'Run Time Error '5': Invalid
>> procedure call or arguement'.  When I debug it points to the line:
>>
>>    Application.CommandBars("Cell").Controls("Insert...").Delete
>>
>> If I comment this line out the script works fine but I can't work out
>> what's wrong with this line.
>>
>> Any help would be greatly appreciated.
>>
>> Many thanks,
>>
>>
>>
>> Private Sub Workbook_Activate()
>> ' This macro changes the contextual menus for Cells, Rows and Columns
>> to limit
>> ' and control the user's ability to interact with the spreadsheet.
>>
>>    Application.CommandBars("Column").Enabled = False
>>
>>    Application.CommandBars("Cell").Reset
>>
>>    Application.CommandBars("Cell").Controls("Cut").Delete
>>    Application.CommandBars("Cell").Controls("Insert...").Delete
>>    Application.CommandBars("Cell").Controls("Delete...").Delete
>>    Application.CommandBars("Cell").Controls("Format Cells...").Delete
>>    Application.CommandBars("Cell").Controls("Pick From Drop-down
>> List...").Delete
>>    Application.CommandBars("Cell").Controls("Add Watch").Delete
>>    Application.CommandBars("Cell").Controls("Create List...").Delete
>>    Application.CommandBars("Cell").Controls("Hyperlink...").Delete
>>    Application.CommandBars("Cell").Controls("Look Up...").Delete
>>
>>    Application.CommandBars("Row").Reset
>>
>>    Application.CommandBars("Row").Controls("Cut").Delete
>>    Application.CommandBars("Row").Controls("Copy").Delete
>>    Application.CommandBars("Row").Controls("Paste").Delete
>>    Application.CommandBars("Row").Controls("Paste Special...").Delete
>>    Application.CommandBars("Row").Controls("Insert...").Delete
>>    Application.CommandBars("Row").Controls("Delete...").Delete
>>    Application.CommandBars("Row").Controls("Clear Contents").Delete
>>    Application.CommandBars("Row").Controls("Format Cells...").Delete
>>    Application.CommandBars("Row").Controls("Row Height...").Delete
>>    Application.CommandBars("Row").Controls("Hide").Delete
>>    Application.CommandBars("Row").Controls("Unhide").Delete
>>
>>    With Application.CommandBars("Row").Controls
>>     With .Add
>>        .Caption = "&Insert Row"
>>        .OnAction = ThisWorkbook.Name & "!InsertRow"
>>        .BeginGroup = True
>>     End With
>>
>>     With .Add
>>        .Caption = "&Delete Row"
>>        .OnAction = ThisWorkbook.Name & "!DeleteRow"
>>     End With
>>   End With
>>
>> End Sub
>>
>> Private Sub Workbook_Deactivate()
>> ' This macro reinstates the contextual menus to their standard state
>>
>>    Application.CommandBars("Cell").Reset
>>    Application.CommandBars("Row").Reset
>>    Application.CommandBars("Column").Enabled = True
>>    Application.CommandBars("Column").Reset
>>
>> End Sub 

0
Don
4/30/2010 12:57:24 PM
Hi Don

The right click menu's are the same as in older versions (with VBA)
If you want to change the Ribbon you must add RibbonX to the workbook
http://www.rondebruin.nl/ribbon.htm

For a easy menu in the QAT, you can also use
http://www.rondebruin.nl/qat.htm

Or do you want to know something else ?



-- 

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm



"Don Guillett" <dguillett1@gmail.com> wrote in message news:OVvfvSG6KHA.1888@TK2MSFTNGP05.phx.gbl...
> Ron, How do we do CUSTOM menus in xl2007??
> 
> -- 
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> dguillett@gmail.com
> "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message 
> news:ORJ4xI%235KHA.5464@TK2MSFTNGP05.phx.gbl...
>> Hi Mike
>>
>> It looks good if you use a English version
>> are you sure Insert... is there before you run the code
>>
>> Always use findcontrol with Id's if you do this, see :
>> http://www.rondebruin.nl/menuid.htm
>>
>>
>>
>> -- 
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>>
>> "Mike Magill" <mike.magill@gmail.com> wrote in message 
>> news:546ade76-324d-474d-81f3-61571f81611d@w36g2000yqw.googlegroups.com...
>>> Hi,
>>>
>>> I've cobbled together the following two scripts to change how the
>>> contextual menus look but I get a 'Run Time Error '5': Invalid
>>> procedure call or arguement'.  When I debug it points to the line:
>>>
>>>    Application.CommandBars("Cell").Controls("Insert...").Delete
>>>
>>> If I comment this line out the script works fine but I can't work out
>>> what's wrong with this line.
>>>
>>> Any help would be greatly appreciated.
>>>
>>> Many thanks,
>>>
>>>
>>>
>>> Private Sub Workbook_Activate()
>>> ' This macro changes the contextual menus for Cells, Rows and Columns
>>> to limit
>>> ' and control the user's ability to interact with the spreadsheet.
>>>
>>>    Application.CommandBars("Column").Enabled = False
>>>
>>>    Application.CommandBars("Cell").Reset
>>>
>>>    Application.CommandBars("Cell").Controls("Cut").Delete
>>>    Application.CommandBars("Cell").Controls("Insert...").Delete
>>>    Application.CommandBars("Cell").Controls("Delete...").Delete
>>>    Application.CommandBars("Cell").Controls("Format Cells...").Delete
>>>    Application.CommandBars("Cell").Controls("Pick From Drop-down
>>> List...").Delete
>>>    Application.CommandBars("Cell").Controls("Add Watch").Delete
>>>    Application.CommandBars("Cell").Controls("Create List...").Delete
>>>    Application.CommandBars("Cell").Controls("Hyperlink...").Delete
>>>    Application.CommandBars("Cell").Controls("Look Up...").Delete
>>>
>>>    Application.CommandBars("Row").Reset
>>>
>>>    Application.CommandBars("Row").Controls("Cut").Delete
>>>    Application.CommandBars("Row").Controls("Copy").Delete
>>>    Application.CommandBars("Row").Controls("Paste").Delete
>>>    Application.CommandBars("Row").Controls("Paste Special...").Delete
>>>    Application.CommandBars("Row").Controls("Insert...").Delete
>>>    Application.CommandBars("Row").Controls("Delete...").Delete
>>>    Application.CommandBars("Row").Controls("Clear Contents").Delete
>>>    Application.CommandBars("Row").Controls("Format Cells...").Delete
>>>    Application.CommandBars("Row").Controls("Row Height...").Delete
>>>    Application.CommandBars("Row").Controls("Hide").Delete
>>>    Application.CommandBars("Row").Controls("Unhide").Delete
>>>
>>>    With Application.CommandBars("Row").Controls
>>>     With .Add
>>>        .Caption = "&Insert Row"
>>>        .OnAction = ThisWorkbook.Name & "!InsertRow"
>>>        .BeginGroup = True
>>>     End With
>>>
>>>     With .Add
>>>        .Caption = "&Delete Row"
>>>        .OnAction = ThisWorkbook.Name & "!DeleteRow"
>>>     End With
>>>   End With
>>>
>>> End Sub
>>>
>>> Private Sub Workbook_Deactivate()
>>> ' This macro reinstates the contextual menus to their standard state
>>>
>>>    Application.CommandBars("Cell").Reset
>>>    Application.CommandBars("Row").Reset
>>>    Application.CommandBars("Column").Enabled = True
>>>    Application.CommandBars("Column").Reset
>>>
>>> End Sub 
> 
0
Ron
4/30/2010 5:36:15 PM
This is a multi-part message in MIME format.

------=_NextPart_000_6195_01CAE9ED.1C23CE30
Content-Type: text/plain;
	format=flowed;
	charset="utf-8";
	reply-type=response
Content-Transfer-Encoding: 7bit

I don't work with 2007 much but a client has a menu item named "custom" 
(screen shot attached if it comes thru) with various macros and images 
assigned to macros (don't know who did it) that he wants me to change.....
I couldn't figure out what to do based on the first link you gave?? TIA

-- 
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett@gmail.com
"Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message 
news:eraYmuI6KHA.5464@TK2MSFTNGP05.phx.gbl...
> Hi Don
>
> The right click menu's are the same as in older versions (with VBA)
> If you want to change the Ribbon you must add RibbonX to the workbook
> http://www.rondebruin.nl/ribbon.htm
>
> For a easy menu in the QAT, you can also use
> http://www.rondebruin.nl/qat.htm
>
> Or do you want to know something else ?
>
>
>
> -- 
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
>
> "Don Guillett" <dguillett1@gmail.com> wrote in message 
> news:OVvfvSG6KHA.1888@TK2MSFTNGP05.phx.gbl...
>> Ron, How do we do CUSTOM menus in xl2007??
>>
>> -- 
>> Don Guillett
>> Microsoft MVP Excel
>> SalesAid Software
>> dguillett@gmail.com
>> "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message 
>> news:ORJ4xI%235KHA.5464@TK2MSFTNGP05.phx.gbl...
>>> Hi Mike
>>>
>>> It looks good if you use a English version
>>> are you sure Insert... is there before you run the code
>>>
>>> Always use findcontrol with Id's if you do this, see :
>>> http://www.rondebruin.nl/menuid.htm
>>>
>>>
>>>
>>> -- 
>>>
>>> Regards Ron de Bruin
>>> http://www.rondebruin.nl/tips.htm
>>>
>>>
>>>
>>> "Mike Magill" <mike.magill@gmail.com> wrote in message 
>>> news:546ade76-324d-474d-81f3-61571f81611d@w36g2000yqw.googlegroups.com...
>>>> Hi,
>>>>
>>>> I've cobbled together the following two scripts to change how the
>>>> contextual menus look but I get a 'Run Time Error '5': Invalid
>>>> procedure call or arguement'.  When I debug it points to the line:
>>>>
>>>>    Application.CommandBars("Cell").Controls("Insert...").Delete
>>>>
>>>> If I comment this line out the script works fine but I can't work out
>>>> what's wrong with this line.
>>>>
>>>> Any help would be greatly appreciated.
>>>>
>>>> Many thanks,
>>>>
>>>>
>>>>
>>>> Private Sub Workbook_Activate()
>>>> ' This macro changes the contextual menus for Cells, Rows and Columns
>>>> to limit
>>>> ' and control the user's ability to interact with the spreadsheet.
>>>>
>>>>    Application.CommandBars("Column").Enabled = False
>>>>
>>>>    Application.CommandBars("Cell").Reset
>>>>
>>>>    Application.CommandBars("Cell").Controls("Cut").Delete
>>>>    Application.CommandBars("Cell").Controls("Insert...").Delete
>>>>    Application.CommandBars("Cell").Controls("Delete...").Delete
>>>>    Application.CommandBars("Cell").Controls("Format Cells...").Delete
>>>>    Application.CommandBars("Cell").Controls("Pick From Drop-down
>>>> List...").Delete
>>>>    Application.CommandBars("Cell").Controls("Add Watch").Delete
>>>>    Application.CommandBars("Cell").Controls("Create List...").Delete
>>>>    Application.CommandBars("Cell").Controls("Hyperlink...").Delete
>>>>    Application.CommandBars("Cell").Controls("Look Up...").Delete
>>>>
>>>>    Application.CommandBars("Row").Reset
>>>>
>>>>    Application.CommandBars("Row").Controls("Cut").Delete
>>>>    Application.CommandBars("Row").Controls("Copy").Delete
>>>>    Application.CommandBars("Row").Controls("Paste").Delete
>>>>    Application.CommandBars("Row").Controls("Paste Special...").Delete
>>>>    Application.CommandBars("Row").Controls("Insert...").Delete
>>>>    Application.CommandBars("Row").Controls("Delete...").Delete
>>>>    Application.CommandBars("Row").Controls("Clear Contents").Delete
>>>>    Application.CommandBars("Row").Controls("Format Cells...").Delete
>>>>    Application.CommandBars("Row").Controls("Row Height...").Delete
>>>>    Application.CommandBars("Row").Controls("Hide").Delete
>>>>    Application.CommandBars("Row").Controls("Unhide").Delete
>>>>
>>>>    With Application.CommandBars("Row").Controls
>>>>     With .Add
>>>>        .Caption = "&Insert Row"
>>>>        .OnAction = ThisWorkbook.Name & "!InsertRow"
>>>>        .BeginGroup = True
>>>>     End With
>>>>
>>>>     With .Add
>>>>        .Caption = "&Delete Row"
>>>>        .OnAction = ThisWorkbook.Name & "!DeleteRow"
>>>>     End With
>>>>   End With
>>>>
>>>> End Sub
>>>>
>>>> Private Sub Workbook_Deactivate()
>>>> ' This macro reinstates the contextual menus to their standard state
>>>>
>>>>    Application.CommandBars("Cell").Reset
>>>>    Application.CommandBars("Row").Reset
>>>>    Application.CommandBars("Column").Enabled = True
>>>>    Application.CommandBars("Column").Reset
>>>>
>>>> End Sub
>> 

------=_NextPart_000_6195_01CAE9ED.1C23CE30
Content-Type: image/png;
	name="!cid_image003_png@01CAE2F5.png"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
	filename="!cid_image003_png@01CAE2F5.png"

iVBORw0KGgoAAAANSUhEUgAAAqcAAAC4CAIAAABRmNI0AAAAAXNSR0IArs4c6QAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAfDJJREFUeF7tfQdgHMXV/96dej/1ajUbFxkbW7bBVGMwhGJiCDYhAWwg2BAI
CSXfFwjE9kdL/oFQAgTsUIxDElsUg+k2ruAquctVvUuWdOrS9f+bmd292b29u73TSVaZZZD3dqe8
+c2b9+a9KavZc7jcYrFxGk1YSFCf0bz1h92VlbVZ550fGaW3wWW1cXZrbWVJdExCfGK8xWJGD212
zm7vbg0sOW1ta2vj+to4cvXBD/6G6yN36MnP77keEnCcBn7b7ejWBn/xhf9BzzRaTqfltDqtVscF
BGqDgnRBIbrgIJ0OghYuDQT4H0W28aVp4IlGp4Fs0QstVEHDQSwdPIRcNJCO03HwHL3R2u1QOika
/wPZQM3If+gNogGospitVovFYrWa+kzdPb3d3T3dXb29vUaj0WQ0WUxG9ArVwAb/oUyAlMBAc3hA
TZTuVFzwvg4TZ7En9vVGGe3ZXdYMuzbeaA1G1QYKOJsGCtNYdRq7VmPT2M0azqKxW7Tor5XjoFYo
X1wbVFl0E6DVBgcgBIJ02kCtJkCjDUB/ITug3maxIopFNOAhvkg24gWgoOx0OC1AAsVADSx2KNNm
5axmnd2isZq1NqvOzumsNp3dHmC3a4FQVAqKjcgXWorckEYjmHER8WMBW1I0xpAAI6AstDPOCqXr
aS11EIfvwmLHCi0KOCGwZBGE3/y/PS0l8hziSA4EadlLBKQsy24hh562uisvn1VcehYzGUoZEhYY
HhGcpA+MgSsEsW9FW1tft8nYY4EqAXNCCboAHa4+B00BddIBD3JcQIDO3BZYX2FT0yPu/O1tKCNc
ImogTLIO//xx7w8XX3hZfMdHYR2nEQ1ZWTHJMTFcG9d2qK3iUEUDZB9T0RATkpTTkvlb0jKkM0Ev
3nCiKiYkBu7nXJD1/Xd77k28H1LCdcEFC97ZUHbVtiNQI7iyfrLg/f9uqLvo7q7zb4KfqI/jywYc
quGswOKcLS8rcduOvWHRqQg8hCkwqdnYbjBqgg3dVqPJijof7pS42+F/+MaD/sY3BnnCX/KG4TnD
8V6I50jifCeyB+EvyaXEOk45QBoMF245J1aho7t8KbwQZBjfACLHC32B9A+xZ/C3RPSJ/wt1UOZ5
CYAUlK4h4vNx7gUKHYNvJU+VFlpTiEeAc4aHbmv6NZ1egS7SFAQSRxZU2/LpldtDJhsgDyTilBnH
HWO5SeOOS2i4UUfGFxK3WIbD3wCdFoUACCA28L0OPSQaDXo86jrwP5YGhIORVkNPkUAQogk9TZAV
SFuA7LfaLVbQAzZQSlaQvChAb8ZyGLSbBmQ3nzNSnqgMrDPh/71HKiAGvAwOCrDabNt/LDp69Fju
xGnRsQmQAQQNZ6utOhMeoU9KSQKNiLW+oLWhYMLbQrORW0Eh8j2MV/mE3YlKwI2M/gVSSHqopA4E
qgYEayDS+gGBwbrgYB1AhSQyKHH4X+iqfEKhFpAUGlsQPzBy4FUcDCIEMFGNAQehG5IyEVJ057ci
+GxY61uMRjPo++7u3h74v9cE4yGTyWwErW8hWh/rNsypaAyEr6AAY7Cuz2gNgQdmSxAoTtyMAD7P
zlq414LWR5BqOStR/Ejrc6D1sa5Gwx+IA62NGQi0vqDyQWdrg4jWx1IVjVpAc6ORC4891kNQQyiO
4MPLYbgBvYTGQoAtQtBmBkGPFb+Zs1q1NrPWataA1rfZUbDbPGp9vosSxR8Rf56g8REUwsCD1/2i
ZOT5wi7T+oiLw2JzCYCYLcm/skvyhNf61LMwpPV54aEkV+SK36H12+svvzj/dLVBByMqXC50TvgX
WiAwOAC1H2BstkJNod9iBY/+QiMQzIHV4F80CIDBH7QLqQUam6KYRJCRwQT0cvyQJxr1avxUjIBu
MAF8Z+C4qJ6Dgb1l3b0d2uZqGHzAfzHwNlgbERFn0k83xs4BXiWoQjeFf+Dv57tPhIVFQkZXTsux
9FlSTs6PiUAxxky7p7oz0f7in2MC0M+keb8oqOjpzb+V6HucD2JS8hO4F7j8vIzYHbsORMSkEIkM
vcLU0aoLiDD02Vvbe7DogG7JK3tecGGxhxAgwwR8R/4hyIiXOzkqiypPJkmK+7MgeN0klJYs5UnH
2EEVVXyt+L4vKG9BpvEizqHvxW4gKn9R/km0vzJMyp1BANSh3igViasqH+XyD+l/BEhklXbCAD9w
gYzkMV+mQlShgRRro5y1OAwQSlfs1SJpjkzInVcs4YJvXGIvZSaKMIH3eUUuKn6kvgR9DzcSXY47
CFFd/AgP/wTBQHQ/GRkgO9Axrka9ClmHNtTxkb4HnYXv7TYN+ovNV6KghHEIrwtIP0X/f73zOCQL
CkQyDtJUVlbv/OHHsROnx8QnoszQ+N9eX1MWHByekp4KT6zI2OUVN6XCeY2ORYSjW8nVvyMdL96Q
7ucFnR1JER3S/cjWDw4Igr+hASCFQWKCUEbKXwM2JVZ5Qt/DUga4H5kbSJAi0Q0ZoBSgIeGeOABI
nxIMUF47UoNwviGh+jYLDJ3Qf0aTqaurtwfM/a6e3t4+0PcwDjCazFY07MEVxK4CaszjQEDshIK+
xwMApI1tYOXrQOVrsdbnzNjQB8WPtD6uGm/r48YB8rXaQKiHThsEN8jch5+aQKSWUGa85icDKN74
JjQRxudHkpiJABjETaCKgGyLzWpGWt8Gyt6iAa1vs2qtFq0NWfmg+JHWJ2MVUQOJnM5XjdQV/yBj
HsIJYvMK7S4yCMnAwRm8MHEWMnxnUyWBFfur25SC2Y94CNWut6Np/rUX7z9eG4TYDCUlihwu3oLX
gQsEUY7texikox/IH4UrQ+IEBoIuRWM1IaFUwePRALAj5INGXSRzovRRqyAm5S+ZaCM6mAwFwPzG
FxqnCgNNUesjbQ2sY+Ubh8SB4Sn+y9vx+MZOfoKI4HMD/wXkSeLA2JOUaLWZrbYZE1O/+HZXaHQS
SABwfPW2t0bFxLb3aWqbOjHlUF1eEImqX7B0eOlHisCIy6WyUGFP/8rb0qlt5erOfYZ8cpnWd0pD
l0IXINFrDk8D3wvIAAA/RkNv3CP4UTBvGWH5IwghUVrggYtCPaTMINLEdxwCrdPF56Oo9YX2kCaU
ZUL9FG7ddyhJAoWolAKW6VEPXZxS/C48Hk6jG7Espaw9ShSCHUWvG2YSquLEoPgFVkVI/GKTnVfz
AaDCcFeBvo+eYnXOu9HQb7FkrLHEOOCqxiMAyciAJ5TY9zAgFwx9zF+E6bA7HmkUyICMwYlKwUpS
o/nmhxNdPcbePnOP0Zygj+hoa/5u05Zxk6br45JRjkjH25pqKwODQtPSUkDlYaWPpINg1RH+5//n
5brQZLySJuIeCyNePYl3WIMDnajaaGiD7POAQA2y9cHJH4y1PnaJgNjFqhMLEcL7WHIK9iF2liAX
BkhWyAiNrrAthSKg0YCgqBAVQt9zdEPc3CD0wNDHFr8Fe/j7unt6err6QOsjWx+Z+2AF8QMpbOvj
i/fZ0cKE5yDyD5SNejaiDZQ9KH4rqHnk5AdDH9zrSOXDCAAJCjwFIIxkUCWg1si41wXqNKD+yV94
AhXFskLQtbTuRSUi2KE+WM0jDIgRhv+AwAcPv82EtT6ofBSQ1gdbH7n3OVrrKwkjoSuQ2qK/RNAR
TJFViJ9JLRrRnpILXMXu6bHjuRYuDsPNSSpiznf8L9ajt6v13tuvgjEVPS3ipsOTVzyDU6LJYxJP
EVBeSuLaO83mphQxIx4/WcailIfRqNX2zr83B4dF2WBSq7sTZn30CSlNHcaahnZoQSywBLlEmftY
UmFBxt/hTkppfY+C10G8clQZZyDV6g06VL2V1Cxfuli0HC9SHfFCXVWQfJgQXsKgIbk4CBZMCyyH
HSqfdBXyF7J0qoWTactzr0TTKzALT48HrU+qQEMs3stTumkyIoOdmkyWQnHwIk/qgmklDaDU6V2V
RefvBdN56qECgziylGdOait0AKSrkVriTXaszknPIdqX2CBE4Iv2CHmHhw5Y32Otxvc3PnPSrQhL
gY4HhQUMBHpN0PdIPxMBTBQB6aNEuPA3W/ac7uo19fSZQPHHx4S3Njd8s2nruIn5MfFJROvD2L/i
zJHY8EikOtEAlhfpZGDLD29FtS8IRJ6RRenI8zmWmFQaUXXy4xGk+5F3FMx9FEDhgYef6D8yUiK+
b4fKJ7ofQwUWKo6AtT6Z4NfacS2FWWrczyiVz3dWrJPhf35eBFfZZDbBdD5o+74eNKlvMlvMMK9v
BjOZjKSouvNqj/CEXJzAeAZTiEcrWOsj974G3YCyxxY/CiQtUvyIWFwDMsBD5j7Ylkj3Exc98vCT
MQzW/EThkkYWu6xQIexfxsMeoplRGqT1bXYLdvKje6TywQcBAXn4OVgAAUIepRFqIuFsSfUoe4dw
GC/JBIoEwcY3uoNHSC4uJLvQuJ77IEWMkkyQlIGHUy6KlJWkSJesXXnExQbHtp2rC2dI0FGO4lky
yUiX5qNe82HGcKHtnUgDpgsODQYT36wJLq9pMbT3CkKKl12IQ5HVL+h56l/UvELP5O88t6cbrnCw
i4CViBnu1K4QdNRVHkPaFqr0kJO0F5Q+KYUf9+IZNtGk59U+sjWwbObnwIQRAm4NeuxCpJnTRVSD
5HIR013fEtPL05K8vVX5UlJ5+iRkKsDKi2uV3OCI5pS924LQS+UJfq8LlqHuXKxCBCzDeG2NlRKW
xOgp+Use4abi1bCAPYYHu63JTDw21ZGxKyhufmCBtD7y24KCx759xF3iWJPM+osdnZRGLuxu1Gh2
FJaCrd+NtL4lKTa8pbGm5PTx/Fmzk1PSsH5DuYGpHRwYgNa/kWVbJANB8xCOF+tOCRUFSSd0FJye
V1tCt0X0ELuUjJKITOGHTtgBy9PPo8Z3D1Gc4/R8JGEEJcahqeQBkZNHDczxZAn29aP1fWgYgKb8
kT+FuDkcox1nRc8jIeJACQvkOicJQPETNS8oZH7VHM2uBAc+oKEArhuZVObho1CXC3Ohm+CpBYeo
x2s9EL/Y7OC6gEEIGG/YzEUr+OAe+/bFIogt4uGicuetfwK2SJFMSbnSUiq1sidy6PdOslJFYsUK
I5qFjurgfqrx6Uop5aDQFwgtgmR0rbuds3MdV0X91EaBuTJYwdqLJrYsAp38v3wH5BU7L8h5rCUP
xbI8cZGn9xRWFC0KHUGxdtLc+4meS/4QO74oGclIWGIeOZtJtAQRu56EidW2mOp4pMXklyAxVGcj
iUilVteYXhajTLObTPxPheLIyxUFQmSBboEcoqLoBlAgFDn8eV2NpI7gFRB7ARFFIndha5a3u9C4
nnC4IJdlZCM1+UNRSXefpbsXzFlrSkLknh+2vP7m6rCoeHDpg9xGU93ofzBPNXiqgKzRFljZy4Zz
IwP4kRHxacDiM7TokUznYzsf2/pouh6v7UOz9vRSIocQwmMG7OEXjFxqlOwYpvAaiR5ko3R4zEQu
8PTDqn1YtI/sfOTYR0ub8f9EfEtGL+5g4IU6rzVA30KjYJUP+hbuiaEv6n7cF8kcD9H3yL7HE0TI
c4EbH//lqyJQQXwYiAzCUyIfCU5IRDCv76FRsZWP3ENAAtrdgBbto3X76C+Y+1jTE1vfTc/pV6fy
OrHrBHIZ7vhN4eAro3qTzus6ecjcISZU5exRl6nKhaIJeN2b6ivGdTHq8pYUF/qp3+SJUpTPyTNd
nmP4iShJNk6lDggZnjP1HMOjKJRD3l+4FEjyenzQXxoUvSSi9OEpFEcBVJ9w7h6ih4xYv8TOxSYw
b/3StApmquDtdSym5pUUrxOc2eeHojN9JjuY+5BvvD68sGhfuzFo8vSL9fFJ/QaDZcAQYAgwBBgC
DAGGwBBCQLP7QEmfxd7RZYyKCAkP0X725TdxaePH5U2PiIoZQmQyUhgCDAGGAENgpCDQ1WtsaYNd
Ukay5RVsTnFG0OFNJZUVPNWCj5l/Ko3P40I8XvyWbD419Uri3XW3FkcGM+zxiYkMjY8NDwkKHAEt
oNl7qAy0flePCdz7jY11X2/ZMzn/0szciUHB+EQPdjEEGAIMAYYAQ8B/CHT3Gis6O+eNi0qKAH3q
Ll83i2TxeED5cp9KOaHbGbI+s62yqW/PacPYjISw0CD/IXFucuIXOkZHhESEBp48dSZKHx8dExcY
OOwrdm7gZKUyBBgCDAGGgGsEwN5uNnRNnxCTGg3HxJDl2y6DFp1kyge8lF0S6LfknkRwfi57Agek
yoL7JGFBmknpoZdOjm1q7ZT6C4ZlS2th5Rqsj0uOj+hobyuraoxPTA2PjBaPHBmWdWJEMwQYAgwB
hsDQQ4BsL4PjHSMi0HlYsI/MfeA3uwsH3PIrm8m560oBDpuD4IhGVkKrCPigXHlAh5pSIT42uLWz
p6ujbejh6h1FWjiRIy4mLCYi5LstOyP1CQnJ6SFh4d7lwWIzBBgCDAGGAEPAIwJkGxh8jwTvQO4z
2+nQa7bLAqw0F0Ovye4I0pg9ZjsfTPYe1aHbaHcfeox2MQBhfeh4NNjxhLZwe6zoUI6gDQ8LykzV
7y06UNfSlZqRExObQA4cZRdDgCHAEGAIMAT8iwClMsk+c3JSkXDUh+MRvz+cHPolnIUm/qJPV3E8
5PPjU/AHJkmiUj+oLdM0FUJiaTIYpPThLXD4SHaP+2T9i5mfc9OOy0yoqqr+asu+1DG5yelZIaHh
g7zN2c8VYtkxBBgCDAGGwJBEgGhSIA2dM0MrZUG1UwqcvHd6gXU1/kQpFWTRnPW5MLBQyJAcZ0s+
x0oH2S/ObiQb3+lz74YkyB6J0ra2GN5auyEuKWNMzoSomDg4B8djGhaBIcAQYAgwBBgCPiAgMZRl
lr2Tjqc1L217y8YCrqx5cjoZrdIVYyoOOdAIAJ1hygfQ+Cas9cWBiw91HyJJNL97+qXwmKSxEy9I
Sc8OCgntt6F/6uVlu9KX370wlVRQ9nOI1JonY/eqF18u4rjUi/+2/OL0/pI2ODWFUjbu5kmNW+jA
uT/UDxzlA5ezyF0iGlz6/Lv/dmNcf4BQSjvQVVBDL93oHJc/f/3S8S6SnRNqJeTNXvr4I/kqK3X6
orfnz1YTdyDjgBDYk0/RXLRx0Rdxf1seV7BsSJAnVF09D3gE65wwCU8VOt/UYjlW1nzVdem58LkT
/NVH/hJuHY9+/HLi/ztN3o69/a7Pfx4n26un5Gc//eiCPbmv3fXrDJLOrS9eoXCX6IUEag4H6Iq+
rclOCITDbAKDgj0CPWQjaKPi0kDlJ6Vl+kPlD9lqKhM2eykInbiF9/Vf5Q9mxUHZP77+7cfXL40v
WOnQeYNJwVAqS0Dj7ccHQOUPnYqK1bx7Yf3GRatODR3KMCUiT47fvUolT45/ZAiofCB9dv743UUO
POF+9o0gEIYKeVRDD3Ee8I4lBWc5ZWaLZ8uTnJDK517e8LvjOHx+Wyw988/P9Dv564Uj6EWTXtHX
L1spQI0lXPse0AhCHJ8M93n98ybng5U/KNP5MMZ8cREK7xXUEfzgyXsvr3oPHj76RQsMutFbh0QT
4g+GjEOUFHyxEZOHiCH01XyBaFvkMK9lJAn0r3zvURSnpWClI613ncCH2PnnYTsJFSojGwNLKrIL
1cuBtgxhxVJlGaKfyCMCF5hBK3fV8A2n0JR0sxbUEetkcDFxTRtiM0S8G5bDPEBxpnBPUFLA2Yk9
fGhFb5OA6J8/u2gXpk1GkgxwRcbwtjgv4/M8KfZukd+cuUiGtoMzQQ4IHZCKA7w3QHIAaC46LfjP
Tu0pGn8R8lUMGfIUWoDmAUKqG5xlEWTZKctkURLyHZ/uVnwriKKPCAS1F+3e578eIpneF7V18+v/
aXnw79dfI/H5n3lkwdrXq8gE/JlHF6x9owrp75L/rs27+ZW8m7/8Bh7e/OW3XMubv31lwbpmnNfp
x2555XwU1r5ZhX7b0JO1j7+4dsotr9z83+Zv//oK3Ez562n8XRLyxxGk0wGOz5IM+9V8iSkZ/rby
HeKG0pccGAHV8+/mjdTVIq+0VKfetH75xdzG98DPBjfpQg+E+NxSMGrBuCEybqCvloK68zB542s2
7sJS4FTBxvhH4IlglCiRROi/+28oDhqMD5rFWfPFrt2pcRmimfX2/AyebAfUj3KnBHGGHqrDUzQp
SIZxs/PjiDFUU9+cnj8epkJcNKWsgYi1NNCYOJiNSCj3bIbncVyynFsOk8GiwB4DzaBC/vHpqS01
9fBLRpIMcGeCB5xAgSf5hqD4zcFFwEuEi8RLxpkZqXE1dc3obdHp6lRu9wE0BEepUuMHpgKg5kHZ
47xB+EgGLs4V4QadPMVKizwg69cKOLvp+K46iygJRc+Na9HXH0cptYZfttqu6sy33Lhr0smX5BwB
YUGZ8TjR6TfWxb74yW+PfHL9PG7si59cfw0X98Arv/1kURyY5t++9FXpojsOf/Tbw4/F/uOlvWd4
F0FLafp1h16+iFv/r+8ufvjQyxfm7obi0Ay+pDjZEgA1nx8dGAb1e65amJ/o91y+jCqH01XUl6BB
9xTFzZ6Op12hX9Wd2s0rcvwQa6/0FJhih5vmGvQK9UNs/YP5RWTcQF9xC2/E06Wo2xMaoGudepny
PSiRJFRqoKlz5M/ruUdhREKWI4AZxDskROh4qtJvvFiYN/UGT2mG6dPHp9e31HAtu4s43IKumnLw
IKBKcjAbnk52y2Z8Mlcs54l+Oc4y9vCUfCDey0mSluH+rT/pEXiy7mI0cEc5y/lN5KKaelmXUYqJ
h/67i5pnQ5csOgW855TKn9SLTn7k3s+XrZk49+S5rapHnN10fJedxUkSKmbSL9EnW8Pv5L2nPisq
V/sOPLCWjs3NOPP4i2ccWwAd44LT3+2KnTc7FsWaPXZe9elN1cSDHzvvolh7uj6Hi81N4+zpsTlc
S1mVfC5A6uyXHv873D38/uw9fs5LJtD9nLuK7LCdmrqL8licc5KAaocNhzQ6WXxEOSRc10sd8c4Z
po6fDT6DInAbjJ/NL9JUAd4Ii6KAszN7DEqd0YgZe6HdN70XjNF/sglroTUHlE9Yym/uuMgpZiqM
X0/tqR8POng2+GagygPKe/kXY4cilHjxQoWliOeaPOf2EXkAvfKIs7qO74EL/JKJyzLku/bTY8dW
n/kWHPi0tsXz6qI9LuSFLfuMvVN+9tW3iov3hEEDTixf3SfmL54Z4MhfpvaH9xZ9CfL8Ofz97/ee
cgA51UKcdciNBiLAg/5ALiw+vqesB/R9+o03LUQyCAoZKiTJ65sShy1+cW6SolPxoUe85BmC25Cr
KWrheMesYlM6XI4UJR5L8nsEb9mMJsBTFeSwoLQUe/i9LooZnnp55S5uvuDCUSLJkcz9W//TixbG
VvOr+Zw7CzjzWiguEotXiAn8tnv1rmrEb8B7zXtgnY10UsDftCMOF0qU5T0UyJORRPOAR5zdSC1X
nYUXvHi+hghqv4k+OH8XTrzH+pfXwZKN8vyJPeBbH/vAbfY3X9xTItmuB2Z9S2k1frTrzHdYh5Mr
Z+F198MrNHNPcibX2HmzW7/b3ULib0ofd3U6PyPPnwSABwJ8EunxATLvPj6Xh1f76Hw+XIXhew2a
1udgwXzGRrw4blWzimXzSILAZL90MZ2fccazVi0FjkUGTr2LrD1MuRhvRHRPEupCg7qajxCL1iJh
Dz+433nyKToVHzoWJ4r1FWbHYTpDIUMuPSUeuVvJBA0se1ZoSjQ/wq/HdBR6DjDxks3oFlesghBB
ARayEkpkDz8zpzQ7cfkCWpzBrx1RIIkCXKkdB5RElHnqxY/Ob4ZxSY1SZ8GOdAcXCcQodCvgt5q6
lowUxG+Y906R+4G7YAKCqyMTWLJrSJCHaVLiAc84u5NaLjpLXEbd52gt8EZOENR+k8ZY66L1+9iQ
dpy4J9Gy+BCe7EV3fHLxmZt/9toUHG5e1wrO/PsXjfvupdem3vra1F32eXwOZx6/9bULbv3XW+kX
LgOlziFN/9ajf//ZeojPXf3IdTkFH05f9PfpL7cue3RWNrVNgNonSI0TXBwWRJwIJAn+S7YgDNdL
sxVWOLBrhCIAi8wfLRrf/9MI/JXPCIWZVYshMGIQGNjd/BaL2Wa1wn79udelZxkt8AVbXv1ItZD8
F/Htu8BYcB04XovT7k5JJA8cPzzpQHgfHqwrDg088E1NVkJAWHgk7Hobvk0+eLb+8MVo2FEu7Cij
R+s+VwI7MByjfp/zYQkZAgwBhgCPAG83K82iY286fd6+MLvvNNFOYvGzBeJyPmpHoOBQEHOjnAx0
bmKzSMp1OCDcH/Yz7BqV2frDrskYwQwBhgBDYFgiINr6V2Jbv9dodShchTvJEEFSYeKVV8KAPHVh
1LvKkIpOuf7p7CNCAorDmK0/LLmOEc0QYAgwBBgC5xgBZGkTo164qI34EmPfsY1esrIPttcrfoBH
ac+9i9l6yp8gORMAcpZnjp0Grscg5xhMb4tnHn5vEWPxGQIMAYYAQ8BHBEBdBwbrtLzOd2hu+Sfv
xB13tHteuFeIzC/Clx/rIx0F8G+dT//h/f1On/8RRxpQYoDNHhoeAB/a9bHmQyYZ0/pDpikYIQwB
hgBDYEQjAB+nbzB0p+VEhlntFitsiOPVMNka53yR83HVXSgrYTRApXCRrZs8pZv4eAotFluE1Zaa
E9nc3mOzgi9gGF+alz6vHsbkM9IZAgwBhgBDYJggEBoRkDUu+rz44FCTxUJN6gP5cgtaYapduZLS
6X2FCX+XtrnqInDB9oDggLaQgIr63rLjjRw3jL+5p6k39A0ThmFkMgQYAgwBhgBDgCHQLwQ05c29
/cqAJWYIMAQYAgwBhgBDYJggoPnxSPkwIXXYkxkeFqqPiqSrYejo7O5ho65h37L9qQDjiv6gN2LS
Mjbw2JTOEHlMwiIoIqBp6WAe/kHijRPldWGhofroKFKeob2jp7d37JiUQDicml2jFQHGFaO15SX1
ZmzgkQ1kEHmMzyK4QkBT1tDN0Bk0BGobG8dmpPSa0BJQch8UoGnvcRxVMWiUsIKGDgKMK4ZOW5xD
ShgbeASfhshjZBbBpdYvqe9i6AwaArUNjXk5aW09FqT1qftBI4AVNAQRYFwxBBtl8ElibOARcyYz
PUKkJoLuN489oSYei+MXBDo6uxJiI/uwrU/f+yVzlskwRYBxxTBtOP+SzdjAI55MZnqESE0EzX++
3APxLHBiArrg6AL0d/LEnOjoaJ1OpyYLFkc9ArUNDZNz0w3dxNZ33KvPgcUceQgwrhh5bepDjUYe
G4A2sfR1GrubjW21PYYqU2djX2e9zdytDQwPjkgKikwOiU4P1acFRSQEhkRptZ7VDZOZPvCVcxIN
Ol8QFpORjxdp0LEF73y0DY44GpeblpSUzBS/X1AWMxl5Hdu/+IzO3BhXjM52l9V6hLFBr6GyvXxL
iK0yKj4pIiEjXJ8YHBwaFBQaEKy1mo19PYa+joae5qpuQ3ObobsvYHL81DsDAgK0WnfHxTKt75ee
ogEbH7Q9+VghOaro3Y+3XTJr5nv/Xnfd3IuTU1LOoeJP0mypOXi/rJ7hY540xS7xS+UHP5OahoYp
YzNau8xQNH0/+JSwEocOAowrhk5bnENKRhgbVOz48/TZMxPS0rgAPacBOx6EHixbxp+2QZ/OgXv8
027lzGe7O7q++vcX4254JTg4xI3iZzLTL/ypsVrRAcgkL2zuc+99vO2+hVcer+x69m+vLLltQVpa
+jlR/MlaBZU/cWLGtu370+Z1+KXyrjIJ58rbD19Lvw0Y+18ufLrrQp3PfFTejFdT3zBlnKD1qfsB
rQ7LfIgjwLhiiDfQ4JCnng3WvrBZJOmOh/J8IG/Vnw+IqX75h8tCQsPAzvYhHzdJjv73vomT9Ofl
BHKR43XR47TBetAuGm0Ap4Pj8vuspk5Ld6OxtczYXGJuPljVEHG6JiJnwdtRUdFBwS4Pu6Uh8i+1
oyo33Z+WL0dKH6x9bOqDu//QiYr8vGyTPWj8eRNWrflgTEpSZCRMugzqd3pSdC5VPhAZmTOAKxBB
5Xcckah8GGoc/eF5F4USfW9HSh7Nj6ARFH6krPU7ujqT46J7jHg1H3VP8VzZ8iXrl28oeg+H8rQZ
c1KVGXLbG28vfqNoK5e7YEKoNywL+W+qmJl3geS4IG8yGLy4NBRlXL9ohqwKuQW5WYNHvBclqeMK
utVcVUexcSUchRmmXkBDjD+MuMILYIdXVBVswFfoyA9lYyena3VBvcbeRXdeHJ8Q5234dkNxWnZW
lD6mu7czISsgKCg4KDjEv3A1Fn8eoa3X645ard1WjclibjO2neprKuos/77txOeG4k8MR9e3nfi2
q/yIuflshzHCYIyMHPsTUPkBAYGuKHEhM/1L+MjPTXvgWOWh41VFRysPHKuyg/KirNaoyIjbb7/7
w08+Lyk9Y7aYFT5C6PG7xb5G0BjenXzh/ZJw2d/ByicNMqCURHc8rVSu1lWh4KTSaGyc1qrRoMCh
4OqjkfD9KMcr+p7OnOP0S55buu39pdsezNn2xqatyhiWbt2Por2/IMZbNAYaQG/pcROfgkL/3h9d
QaH4LU3Zw+wV7199ha/c6McaKWaljitotndZHcXGdcD4PmEYR3Ix/jDiioFujnOVvxo2ILRBY+kC
pXaF+PE6yAUFG3wXzgrBYoWV2hYQ3ySYzBCIFO3qaSw9cwKy6+rugDeuxJEbNB78e/nLH59du6nj
7S9anltT8/DLZ37+1OHrHtlvNPZByehjeci6kdDpUC/kMfmN7vE38Dz1UB+I9JjnKIygnZaXOWVS
xrS8MRB4WxU3RFOLobm912bX3TD/9oLPvy4vLwOm8dwsfoLQZjxl7fiSDlzvj+IYbEDJMHaX9rV+
KwZSrkYXCoWGNpeZfj3TER6cFXzoK6T1OZtWYyUBRgDEb+Iq0MJbcfziGNfMyJmDp11wKFuxZNUc
CG+U4fvN2zjD+39ctWIfeVWw4o2COX8sKpfHRGnLNxSghEs2byVrNuHavxk/WbVkg2FAwexn5k5Q
uK+p8BbXa+sbIlw8RO/X0DfyhwhAhYSOdly5ehsd+lk1WXIvuIJv4gJcHbpxHVwha1ankTICiiTH
r5wT0swmZzAZO/kXh1Gem0c2IPjIrob6BrgacWhqbITQ2NCIntXXwVVbU1tTXV1dWVVZga6y8jKS
vMfYCFlZLWgUgXdveVK5ThF+f2tCi6EnKz1xyvjMuRdPmHth+p03TbR0lHR2dsLYwmaFDEEYCpcG
/PuUogevMl5HTpQ+sodQfM9hYG0+FQSoIXKIx9Gi0ZZdI1BJ3Pzc7194569/f2PV6tfX/fefX278
DzxZt+HL3p4eGDYOTn3AIoaPL8OaA2BHq5WDgSNeBsJfQENK9W7zgzNlIeLY1/0nzwYfgDSjYDH3
wV/OZoRSLabugPqT7X+6zdHfNJrcMWMqX3pMq7FptZYArTlQa6o6fVynsYDF75oMPA3A8xZ9T7E7
HgFjgV60LVWfiSNve3Oz/YGlW95duLi26P3anD+9C5arfvGzS/80gwz+DRWpV295Jh8iS2Mikf3+
Bv3ydyHt1VfwloIBctgCTx7IqYAihjKjO0PhrqYCDs/mcxsKts1YuuXZ/Kz9ZXwFhazw0FZA2/EQ
A6iYUMDn9d//RGx9uO8/p1E5eMEVfCqecrpxHVzx7k16CXkwQHxq1ZV3o4CHiRgBAgK6kSd0YiGa
wZzYaSjzzzCjTQUbKGn9pORkCIlJSTgkogv2X6GHKSmpqalpqWnp6RljMjLhysrKzsombBwXm5qc
DNOH4BZAnOCD4k+ND5mYoSk8Xg8HjHb0mA0dxrZOsPLtRqPRYrXC7mS4pwcoiN00aDIUz4fCHd4z
Jgh1kPEq+pQLmakqrZr8R0Uc8PBXHDpeefB45YHiSjTut9vv/OkVzzy65N3/98Q7Lz79zl+ffvev
T73z4lPwqre3B5xE2BEz4JfNAjs9sZsKKX70FzSvyCDRJzdV/flhmp/gPjcj49TyZf2kLCIIirXD
4QUWCzjH7PAXlp7CsAPKTy748wU33+kIjz637+gRbUSYTmsK1BmDtMaDew+kpifqdCatBpwiyheM
aPFYFV30PR0bTuhf89Squfesuqd2+vfPTM9E70q37ee2/wMeFqypM1TUYmcYaS3iGOP0V8yIwbfO
MWOyUstWvlkqFgGRF9+UjX7OyL4ClCjObWheDig+0/8JQ+G2psLblJhMTp+VarejGzlcUtwEzyIB
UCmhiExDSy9R/PAX7v2ImDqucDQ31frOjSuJJrLH4mfu+/4dFP40Q8I8IhoULIrMJjKYvEQ/4jDK
s1LDBkKDSoSfw8rH5n59PTLywcSvramprqqqrqysgFBeUVZaVlpScqbkDPGr20zhYOErsIvqZrDZ
QdnbI8ICTRZ7e0eX4LNHfgOeRQmZwguy8AnJLbIACg0CJBXxWLIrmekxIYtAI6CdCh7+iWOmTsy8
YNIY0li8HSAoFTIRDZcFWfpo8DYIAc1Iga61QKFYAYPWxcNGeBhUl9by+pPOKn/3/kJQ0V7RdqK+
6/73DtFh5betVrMdJrksFjuMcKBoG4xaoXAT19VQ01m4DYWi7Z0Hd3InCrVhYUExMQEBpqBAY8vZ
BoApNjYoQGfWatEgxecAiu2uZ+7b/M6td9V9/3+FfD7CQ3h+39Ng3+P6O1pKck+SizH1dz5z3ztp
B6669/ttfKdTTugzwQOXkKr1VZcrEC+rqQMTERw3NzSG7qOJFazHih/+DlyVXeVMNzdFubvGVWQP
QfCKfCW/wZm7BNbOyUscfChYiYgZqG93JIlWPrpJTk5JSgEjH0x82H+VkZExZkwWGPlg4+dk5+bm
js0di2U8Mhko9eu1vALdvubr2pCIhMljkytqm9vbO4l+x35ZXkDxUprwK0x88mY+igb+fmHHuFTx
90NyMsZQiQDx8Av/4437aBUGVrJkwIZ4A2vcXpO1xzhIwWFwW+0ym3uKYZbE5gb7+9HneJVvtaun
cN3ehle/KaE57rzsjJ17Cs2g8s2g8mEdjA0UPzipQOWbbeCtEi6ARavhArSBUZEhKfFaTW+Arqe8
pGLulXO09hDObrJaTa7IgHGT2Wojb+l7Kr7NwtnNCOqoW++dVv6PzZtQ5OjUFMO2PS1K0eCtmEQx
Jior4dorb09pLamQRaYTDlLLqm8gab0Iee5rKr51c4OQLK3Eue0u285D7Sa+HJbSui5vqqAKVW+4
whkHV40rFu3cyu7r657ZZOykqoJ+R2xEZqiCDXi0hTE/L71gHr8JjHww8eGqAxO/FubxqyrRVVGO
rtJSZOTDdQpfxIrDi/7QX6PZ6oNsP1zSWVpvm5CVWFXXCh8MDwgMaGxp04DT3m6H3HqNvnxRjCR0
07guZCZjQu8Q0IJv/9CJ6kPFVYeKKw+Bt/9ExeHj4PMnfysPF1dgU38APwW7u6ztsX8flQXR4Aaz
26XNTSzvwm3c0T3IyofJdHqeSOYNcPrZbgm+85rpd16TT8Iff3kpqHzk0kDKHha+2i0mUP/Izw8q
n79gOYpWq4GNrSEhXGhoWFpyRHZGgI07cbRkyvkz4FSD8tL6ro42ndaxBEFWLOlv5KLvlYlNmfY/
Nxj+8szBKi7m9l9N47785KZfv3vTr7c6ljUqJHOOWf4XlOqT/6RMuz3FEyjD6b16TOhaxdx+Q/aP
/wRA3r3pAHfJ0KivOq5o+88zmOx/llNUyxo3+9LpKNpDX7Z5WTM6oXtgRyo7eQnYAERXxwaC9KDM
aTyRnwgT+TCPj2bywcRHE/noyoIrOzsnNweM/LFjx5133nnjx48XRA8y79D0u0/X5v3NF4xPbWjp
amvv0Gl132/Z3NN8uuhwicS3T3JW7eH3SIhnmekxCxYBGqS3D6+iQM4e0EjY1scqifwRldSyPzz3
85/dEhUTGxLi1e5wDxhvPtHy9cE6WSSwuf+YelVkVCRfPuhaOxeXkv/dF++DAp6+Oz86iv9EPUkY
PWHq1x+8i5Yk2u1x/0GrE9Rcf/2mOkr41D3En5ARt7rgG7jZcMPj4RHhsNSEQJCYOuvrrz8ART99
zwz4NgFW+cFa2NQ4ddapiiMxc279Yn9d5pgxl15ySXlFxdGjR1sNDdcu+EljW7wiDfWNdfkTs+ta
0QpB+l4NwSzOSEWAccVIbVmv6qWeDTa+tn3clDRDk7GlpeWZV35aV1sHoo//iAr4JPHGPTxdi+ZG
8RvyiRV+un3y+ef//p4CfVJcHyzBazXMWJCQmpEVHRPr1aEsj7924rYbZzQ2tff09v24c9vji/MC
AoO2F9Z/tqXs1ScujYrWV3/1SG5S65ScJnv0BG3cZE1IvNXYae1tM7c3mNtqzV2NpvYac6fBZrTD
9vwG29jThoykn7wKCeHIIFe4MZnpFUe5ioy3oZP/YXml40JPsMXKO/nBdeOX8uhMNh5uVlT5YHM7
DG7wt1M2twXc3+Dzh1l/8h8KwOZWovJlS0bdEwyOe2TLW0ywm9VmNdmtJlRbs81ktJlNNth4AhY/
8vYjox/nBBCAyg8O0sKYQB/D6fVR47JOt4XDmRKXXnrp2ZaW48ePw8aY7dt2+x0oliFDgCHAEKAR
QMuCBcuXWPmpaC4fTeSDiY9X62MjH6bxwcYHI38csvInTJgA/xNbnyQHKeobsHhwgXbj7fix6Oar
xoSGhoJRtOCavLdXXgPn7Xs1gPCNAJbKZwS0h8GNf7zyyInKI+DVh78nKo+erCw+VXXidM2pkppT
pXVo0YWGi4xwOf7yuex2cxDtY5e42cGvDuv4TMi9D6oXFDDy+cPiPhPMr6NdIWiZPVL4WOnjQSyo
fK88/KDs8Q490P3oL/Lpw0kVVjOs4INnqFATzK+T9fxY5+u0XGCAJjRUEx2lS0yAjS+W1PxjxcU3
3nB9X2/vkcOHYXYNbP1X//EHm83lOYZ4pQt/0fc+Y8gSjgAEGFeMgEbsfxW8YgOyFI9ctTCVDxP5
VTCVD0v18UR+WVlJacnpM2dOn0YT+SepC36glfCg7y14PZ10c536WmSmhJRWNQfqAuoaGsZlxgSH
hKIQHBIGntLwCDfn66kvwjkmk5n9QU9Mqz1/IpzSMwb+Tp6Qef74zPMnjjl/QubkiWMmTxgzeXzG
5PHpoOkCdJq8cVlkAaYfQ31z+94zzXvPnN17pgn/PXu0uptQJjW4HTY3Uvyg6EHTw4FT8C/aVwCj
AxiwIpVvN/OrRNUQiVQ+6HsIJrQ7H8YUoPJttj7Q9yYYaphA/5MJfviJPB0aXYAmGPn2tfFxPRMv
rY6YsmFHqV6v7zP2HT12rLm5GVT+lClTLFadFc7scQUU9pnwgb73K7Bqqs/iDCEEGFcw/sfORJXC
ActI3l0Pd3ixPt6RPwZMfGTl5+agifxxxMrHc/lg5SNDfzwEmNfn00Nx6GgRn8CfnBVWXW8ICAqM
jQ7r6bUEBgTowMDXaOAmMDAQ7h36SfW8vucuyWSmT40lA1aLZ3+IH5+cJK/R6TRNzZ07Cks++HTv
397f+vq/tq/5dE9EZHJbR6+KFWhejEVEHzt42mVudtHgNoHZTdncJrD1wey3oAT4QlY/DAKIykeD
V9WXzQj6Hj4CASq/z2LqQ8TY+jgLHM6DyMHlYkeABY7bDYYjrzUhwZqoSE2sXpucWM2lgTMf3GpR
kZGff/Y5jLKLi4sjIyNvWXi1yRJosbr8jgU/bcL3Wh99a6qryCIODwQYVwyPdhpgKr1iAzIZCxRV
V7XodFrQufD5HFhIDxo3MIj8g9UvfggXrDUGpYz/aE+eNCBbH1bwC59f8aFmF52vjw7uKqlsypsw
dt+xFrKSQJIP2lwofeK6GPzBd8/ykIbIB5pZEoIA9vBjx/6x05UlZfWNZw27D5Z9vuXwWfvZ3Jkh
026wJM354VT02m9OlRQdLj95pooc1OMX+EQfO1L5Uje7aHCjNfyizQ076NAOfny2NNb4RPeD2icq
Hx86ofaCo/csRtD3vRZQ/KD+4Rg+UPkmuGwQeMVvhmUEuuDgpICgMF10lFYfo0tKqAjN3ba3uLCw
cGxuNsyZhYWFlZSUwLKae+9bEBIZZLIEudH65DM9/EXfq6WaxRuJCDCuGImt6nWdvGEDovVDQyNf
fnrzo4vXycJjS9Y9tmT943evf/yegt/f89Hv7/3of3718f/e9wmEPyz99L2XtgJtMC+KhJEXIlNS
ofDQoFuvTLH2NZysNhaesf/nm4oTpc0dXX1oMEEuG5iUWk6r03AQwPSHNWTIZ8oHOJkP36OY8AfI
gC+9eLyYzPQIkYoI2imTwKufibz64zMnjE1rbO0+UFY+ZkbP5Av06ekpWwsPtsL0urm+WdvcrM3a
deTMkeIz/lL8lI+d2NwONztlcIs2N1b5oPhB0+MvScCFvieB9tWjKSq8UNXzaFHEBJQ9UvzI3O+1
GnstFhOofJupD83vI8VPJvXhHODQSH1OSHhcQGIcWPna1OQvzkRbDKcvvXzukSNHt27Z0t7eDrb+
w7/7ZXR8RJ8pGNv68DFp5YvmaxU8rqIBWZThjwDjiuHfhn6ogVdsgOb1rRzY7olpCYmpCQkp8fEp
8bHJcfrE2BgICfqoOH2kPiYiGoWwKAjR4dHRYVFRQohGB+XAV0O8EJmSOkLaOH3YPTdkLp0fNzY9
aO/xjudW7X9/w9FjZ5pAMsOIJFKfEBKZrA1J1wYlagJiNLoIjS4MvhqEDuLFul5YRU6yhdp7JoXJ
TD/wGYyy2rtNyADVwMEzyLH/2dZD4ZOOjcmIDg2aFBkUFqZLPNa6Z/PGYxXcTzvMpzW6LyfWz7j6
klkZ6SngPuonBSs/3BcRFSFu54QWnZKb+s4n34PNvfryFWHh4cj/hIeCwCTp2bM3frYOFP8lRzLC
IyAVP0CEm+SpszZ/sg7tVuG0uRtqVVL1v29+Hh4WTtgI8r9gQtZ7H22yW/revvrvoWFh8Bw2oeoC
Q7InXn+qvDUmpmp81+VhubmbyjT7ivbnJtgvu/G+0urmw4cOnz5z+qKLLrrxlqldfWG9xhCjOchi
C7DalBV/VV3dRXnZdQa0c4++V0kzizYiERjxXFHd0D4iG85NpUKCXA79ZakSYpE0kwkE98Lh81e3
Z01Ibm3sQxOz6Bh9fpKf356HNSpW53j2Fr3nNStx06IFBGjpERKs1WUNl96Rmub9zj2SIwhdZHyZ
4EO6yAeMRCaeY4D5hvCmrTERxqS4Xi44ThMaz2kDrcZmS0+NyVBmai01tlea2irNHS2wcy8IyDDm
lLQkp/70Lfc795jM9Es/0uwsLAHeCAwAB3bo6cqWIzVVCecX26KawwPTNdqu7ta0Y8dCbZ1z4cPG
R1MfM9uMSeW518RdNfvCqbCrsp/bM556f0cE6G/e5428PFPGpr3/6fdgc6+e8xycgoNriJYawKBk
TPYln3++Hub1Ly1OCUcDArRXD63tsNuTp83e8uk6UPmwqW/cRvnuf1cwPfbKetDuvI9Lw02bmLPm
4+/A1f/mVavCwkM1MAcWGBwUEpkz+abqxr74hJayE+Mrjm4OiIrrbTt7tqE+Nj0zacK1uw/XJCfG
3nnXdbrQ4O6+0D5zsNkSAGv47cijpXBV1NXNzsuux1qfvvdLW7JMhikCI54rqhrar5iWMUxbZ0DJ
3ltclyhoffVs8Nmr28eMTzE09oB0RDrdZm9pQVP1aq7YxEgjrJkmvnWNprK07vI70nzT+qbezs6m
SrSXGn0vj8hqN5cdPBPTJoSFcRV9zUeNZw/1nj1iam+09aIFhXV92aebkrIWrop2u1+fyUw1Tewx
ju7lv72YFB+TEButjwnfsa8kUj+2pft0OVd4tqekaV90Y+NkS3eWpSewNGRnT/Bho6nXbDTqW1PP
yx0DK0ZgZOexADcRvtt3OiBAC6ffoQPw0Lm7Zhj2HjhWAm726zN+1OrAYkZrRFCw2qP0Y4qLj8Ma
/vTGUFi5gj/KA7v1YPW+LTI5rQyOmcRn88Xd/rhKkr7aXqjTaqBc2JoHC/hT46MPHD3FWfquzTkI
A1ZOE6gNDA0KiYlLm2IPiLJYU45s/yJ3wuTE6CBOG9DR3m6x9tY2tASEJd522w1RcUE9phATqHxr
AHybGB9lqLywsK2zMyNR39WHjquk71XSzKKNSARGPFe0dxmzUqJHZNv1s1K1Zzthgpxkop4NTu2t
jI4L6+2Cr+RqwJRvbTH84v5xM2YnX3hZ6sVXjLn0yjGXXZU955qcK+flXnZV5sVzxlx0Wdqca8et
Xb2pzdDaUNs4cUpuX68Zm/ya1tb2rCnRUdExcPya+kNZYGK0t+OssbVm2uSJkyedd15u9rjcrHHo
r8swNicLlkCdKG3VBqeGhCeCi6Cttau5mavviKrqSq7tTtLPeihcnxocGgprD12hymRmP/mNJEfn
8JOtG6Cmaps6tEFJ5trwqrK+02cjz3Ylc92TbX3xfaY+Q/hWY18HzIB32jqbmlvBq0M2ffbnslnw
hLoR/TXDDSykRzPqfeBmNxnR3jlhvz76EA4cJgEqH03twwJ7NKVP/oeAlvETlY8Wgqq+0EoCtJSv
D9EAFbPAaj40zY++uGPX2jXgpAoPCosNDIntDTj/v9uiEidcpbP1nC0/Ul1eAp6Ars6+1taWMWPz
EpKDwatvNgearTpk5YufmFBNCYvIEGAIMAS8QwDkDJoKR99LgYQhQUHBwcF//8vO557auOJ/N8DW
ObjgOBO8FNpihP/x0bvhYfqI8Fjk9EdHi2NXqffn5Xd1tDdXlxqqS3u7e/fsLfryq82ff/Gdx7Dx
y02FhYe72ruOn2yoao452Zh7tHV2ufbGvtSFAdOWp1/3UmzmBSFhYQO00d87bEd6bO2Rk5XHTlWd
LK1pONsGNncvrGILXaA/MkZTG1qVevBQ+Ge9sCG9ty+jqCWk3tLXe9ba3WuBdW7w8TtBv3neZOli
iyG4082gbpHqxeof/qIFfbC8rg80Lz6cBy/lQ3/Rl/dA5cNnQ/jVfMKSPjM6wQft3EOmvx0Oi1J7
ooDFjFbvIzWPAxQDfy8aFwma28bB4RNhoPLDYlK6dFNXfdFzxqD/9GTOnurIZt24qJTzAsNidboA
ozXg6vx0Kxdggrl8sPJhLh8tTHVHAB5fOVwB6qllMUcwAiOeK0a6FO1X/RQFAs0SzpwPb0Fv461y
6Jxd+BkcHBgUFAgPxmRMiI8bA/OTZKcTmnI3m0BIgrGEZvPxhdbSa4mpD6ug1QpMkYze1lpLt2Ha
jGk/XXC9t2H6T1OmXjClsbnjpCEqasrPk2cv00+7LyFnVkxcUmRUdGgIfLjc9WEnGOYRLAcGrWra
KWj1/pjx2Wng50+Kjyqvqu/siwpL+UNQeXhfd3dHwLeHItaA6d1rT0+sjNG0BiW1nBcdgXxB/b/A
yhcCnI2D7u3ozBzYNN+H9+SBmscfvUUn48ImfVg3AiqfQ7v1kYrGe/axqQ8ueqLy0WeCVF+9rQ3d
LbU41HW31Pe2n71oXNTDt8/r6QnoMwZZuQhtUGyYfuw/CqobWk3hQda4hNj2qHlHbVf3cZFwfC+c
EDR14oSA+kNGc7DFGmi1g1dKx8EiGRRcXphn+Yu+V001izgCERjxXNEvrTjSE4sMrZ4NECRY5ZMv
o8KvILjw8mqydA9EInKEgiFjgilZc1+fCYQor/PhjFFkHfFTkDBDitfye3H1tJ0FlZ+VmVFeUf3t
d7vUhOqazs7OnmXLHnrgx6sfefxhIO7gru3gnYiIjIqKioG/YWERMMUA6wDxST+q5KcXFLOoUgRg
3IcdRXjnW+6YOFNHdU+fpc+mDwm7Lfi0vau72dyzua3jfZ3tWpP50gk1k/UGe3JyHMzoo3Fi/y7R
x+6w9R1udvx5e2BV/J178rFdpPKt6Gw+uMcefrxlHx2hCxv2kcr36iCBtW/8+Z8vrRTCil/94pb/
e+rJxLEzZj9w8oI7tk1a8K/cOU+3Bsw5VqeLCtXFREa0dJhP1fRaAvQllpkd9tiQ6Nxrf3F74Mwb
YIO+2Rqo0rfv1eac/qHLUg8bBBhXDJumGkhCvWIDckiPuD4fVH5gELgbedMf2fbg2Mcq32gyGdEu
ZSs6ogeWMml4mU+qgt2jPl5/fuEv/1z9dzXh2WeeaGu39mVVd8xoaapv4QW13Q5L/cFHQQ4RUqNQ
vJjB9bFOoyIZXmqOsQQ3+fic5Jggg63jVJ/R1GINqogMtbUYo0vGBPZpzRatTTvF1DslODApNzMd
GksLTqL+XZSPHc2vi252OCYPvnCPlDlW9tjoR4odVD5sR0EfvwWdD7qfnMeL/uNVvlda35l2tI8U
BZtOaw3QWhubtS99WBMWO0YTPam61dbZp0lNSw8IDOlpbwpNGP+Lxx4L1yfDon3YoA9H8KKlAP1D
Q0hd/sL971y/upzOrOqLT66//5MP6+EZvN2y05eCIKGYA7kZ+heGgg9qad65GiW5/wtY0ixiJdZd
rDKdM8RXmznVRt4m8RltGT8418VVzt6yisqcVUbzub4soSoEaiqayQd4yHF16AA+Lawj5g+vg510
cNwY6Htw7xuNpj40sW/BbkhkSZMvqglf4lNVnGKkPzzxv7+67zfuQ0HBfyDCU0+/ADmEVGTov82O
iookucGyA7K/kF2DjADR3IgFAP+UhJi5syfqek/au0vrOzcHNtrTT2UGmqdYtDeCd93WdTzQVDFz
+vlweg8c+qgNAId2v6ZZ0Pfu0CE56Fw8NJcPk/rwjR0brCwwokPxkb7ndT9a42/jD5QAdz4+ip86
jpd8QhIxPHZc9SOA/wKmvWA0bGjXPr/qUF/weR2W2Po2U682MZCznK09U19XM2Na8pIHbwuKSOoz
h6CT+Gywbh9NlfEnTbktnT88EMeh7yU0Q4MUle905GPYeUDYlqPJfuLtuZf5VkHCWeLI3rdMBjkV
p//l8nu/evver5bGfLhyC4WJq1Yu/6EIJXlrvp6jsRLrztMPMEK2cy/j87/ll6leso08Qy+TS2H0
wBWcfkz9QTRQo7eGeG4I71lFZaVURqMpHGSpNryKE4BSJRxw5LyrM0LidX3GbiS38XI8cPCDHS/W
G5b6kfl6NJWPDh5B0/lwK9jTZEUAdhfAObhEJnjmKD6OPUT//HMvfv7ZV0cOHe3raXMfPtvwFUQ4
ULgTwvXXXX9r6u/uX/br1994Y8r0GYgYmMRXXa47melNJl6VOCIja27/zQrU4hoNHN4cp4+eODYz
IDDyYHH16VaDpfuUXTPBxGXae2tsPdX6cPuM6edDCA+PhM30/T+l5+7HnoFvNPE78jHbzc4//4N1
n4Pb/i9XbQwOCoamxKc4IQ05fsqczz7bCD+mFXFhwUGoMdDqVTTNkHvJnL2bvwPmTb7l7rT7/+pr
l4dziuxabOWfrLC9+nnZLRcHV9d2VdV1dnT2JMVoLsyLnDVFn5IYrtEFm8yBJmugBY7hs6F1+6D1
pRrVJQklNbWXTs5paEP79el7KkH588sOcvlcVeqVb92oR8+Lttxfrx+zsTxzOSgn9BbfcJVffHL/
RhgNZD+JtBdc8Aq7AfLnfr00W+knSSjmYPhw5Sf/wqcbZM6/BZeFX82P+ddG5GkQHjrnTD3h9Hdg
Yvi0TvdORPIV/X8fSBwW/3MXroH8clQW519+2dvZOzE4O+uz31o+LVOsMk+GgADHXbb03ifzSfJp
lTBcwDlTNSIlyfIXc876QY6MDAROaAVUIofKcm4OL2rqliswkUuzd37BPcFXmbSjrPk4aM3KGxEl
wDDXfaF/a3nMhwKriMyQOX+6wEiy5G0880iYgWYnETEZmCLmAidA6UXZmAMdV3ld22jer//QX7+i
0Xj999eLP2G/fko8b/uqEA58ut6ensN7T5zc3hQQHACOz6Z6w/y74mArM/44OJrQN6FF0LCIDw4c
hUVQ4MZFQ4PKAynOfQxeXP+rbLRfXx+r8vyVhtpqQ0vz9q8/U+qzqp6NnzI9LTMrISkVZvTBw68q
DY7kQmaqz4DFRAgE3LHoZ85I5AcGJdaera0PQ5v0zEeiE0JTksfnZKVnpKXA4Tyw7EIXGOCwGn1F
En3fFk5oJsfw4C//oCX7FvM1sydarZ+D+0c8UgpegxcAypl57R/7ip5DW/WpQtHndzhNzIzL0x7w
WeWj7PBeGDT0nZTLvfP4mECdRaeN1mlt4BLDJ2FowZNvtgVYjDpYsQ/6Hg7gg9OoeAeDWjiEsS0q
kL6XgJg5fxq3qqJyvj6T43YWtV02P7sSBjyiqYduyj/cGPPkqltEbbnz7S07Qd8v46Ut/OSW3ft1
vuHDFVs/rM/GilmWg/6XK+79JXpa/vzSgzvnk6GD4V91075eNRdpjrf5h85ZwZOq+bd8DfY0RFt9
8NIVoICl+fNlyYkUK/n673/y0F+/IT/hvqqJ/9aiAivhWlduPLgzNfuXaAhoqEq95etlaDzkTMaT
q+ZCXTJXkIEIISlb4SFdjMOAduSc6YSMFF48/6IBxQll3UsGPbLm8LKmnrgiddovU9758MA0pNR5
bOXNd2m+/l9F5dyM7J1F5Zn50zI1bWKLi0BVbvzkftDrqMry5DKUlPkHhphShBU4QTQcFdpylD6S
cbscBYIYaS0HN7oUDhAvODRk8sxxaTn67q5OtCXPnkj238GKYpdb3TluAmEepwu+jQvyHJ3W56DE
XUslpqbpExLSsrJNxj6QvT40KgwvAoOCQ0JCvNcj7mDxgZLRmUQLQzznkJM95pKLpt4yf859d920
bMnNP//ZT668/KLcnOzwCN7KV7PywiOgsCQPBVidj+bn0RdvYJQKKv/J3z8KbisYoPJH9OBTeuAe
VH7uFY/ByRT49B76sqcv/l3uC594LNFDBOT10iDtbtXBEXuwC7/PFNJjDO3uC+s2otBjCu01haC5
fDD00VY9sPIHSMhlX5Zy4MMijqs7+CE3zaHDHBWIyQSr/W1x+r98Z5H+jvmigQU/QSm+c91SsOYN
la5m8UFnL4U4YL21VfFHGgqZ5Gdfxj90zgqVdVk+9kNAtLryH1wehygj0kE9qHkQhfDbg8qHUcgK
oPCd+2GIw48thKI59WSo5AsxZ2wuS5CRwYsy3Lnqk8r54vCi/zX1QORly+ZyGw9W0rGkRGbmZ2fW
t1XCqKieqgiK7wAKRpMOp4pC64u5q+MfxSaghp4qcR8F0bQit6MjUvp9gdYMDQuPT0xKSR+TnpEF
lnp/QnxiMhhy6olCOjswCMYKkdEx0TF6H0JUjD4iIhL0vkrvgnraWEw1CGihvRUCnFULh91HwMdj
o6GFIMBNeHgEGPrg2PeLygfi/vWPP7/z8kocVpC/993xM1D58OrSRxpn/rqaDlGXrwWVD6+mftea
81UzHexPFSTd8ZSa2rqPgw66AlvfBjY9suZhmZ7REgw6HgUTHLAPjn3ycZ0AGBbwc/mSuVbPJNAn
G7k/5eiy+dOrCssri+BLSBJnqVAGstXeSj2Idbbipb9jxb1fr0KBNxBlsUDob9S/hSIQK9/N5Skr
l0ndEUkUvzsrH2UrFu2RSM/gq42hChmYW9FX1QnrLWB9gOvm8FhTdVyR/cv88hc2tvG1cCYyNesy
DpY1VOzksi8VXR2u6uy5jj43ulqYR1k8ovjdqXx1bMDDBoveQfHDmXqKZptXD2GjPLjZvZLqoK1h
4T3MzyLXr/cBEoIe8UHl9/tkuFHGdC6q6/JIBFj/AZtB4LynEGha+APHQMCBT26PUBjmKyrwZx9h
XZ4dXPcBFmuQ2YLVPCzZQ6v24IB9OIoHdugFQATovcInI71b7UFWrBKg6HsaOtJSGhDi9QdfqMu+
I1+yAo9/i3PImn/lHanITNdwYGsadhYZhHxkP5Vz4FJisiAfWDkoUEVnLtw7Z5V9eb5QFqRNzb4s
lScAnAqIACpDKZFyrKqbut3zDE2Pw/fJA6hIBs/mssjO+TjlJk0oR0YOAqj8y5beckcdWlohVoFq
Du9q6p4rROKz5k+DWfkqrNGRi0lOpD4zxVBZaODys1CzCh1ewht0W7trfQX+EatJganUBGhuqFzW
rEzWYgSUVb6IlRrhIAOWLMrHO/J8D/zKfi/W83kn9PyoF1zJTD8WMRqy8oO7iXXpgUEAnO0xXGoW
P2UuL6P8uaXv/AQc+CnT7kBqACyzuWM2fvITeIjc/vo7lk7nyE9XzgBwzhdtQREKObe2vkJW4G0W
ymq7YymZ1EdTAzCnIM1QRqSfcVIiQ7EIpJxgpmAZWvyo4lJARgYvn8lly265rOgTDPjA1lQgOvuP
y2IqyXyKUvNdhib12/jJF0dFqRYU21ohOY2SG/6RgKm6CVTAzqIwBBgCg4KApqikdVAKYoUgBE5W
1l0xNbsRr+Gn7xk6oxmBQeMKWM23rCj7bXH15WCBXlY7qtfwu4EZ1vCnJvBr+AeNDQar2f1fDpOZ
fsEUvDt4nzkLg4IAtBnyIOGy6HuG/2hGYKC5Ak55wl4f8HZwdy6bljUorE43qF9E1UjNRARqoNlg
BHQxJjP90ojwEYbhMJ/DiGQIMAR8RSDzplu+/ee9ONxyR9q56O8jVWP7pV6+NisT3QwB3xBg8/p+
6bgsE4YAQ4AhwBBgCAwDBEDrezvUrHjuV7AL3NtUruMXbrn2V++QsPTzNo7zIX8fkgj0DG7pwuFC
qHT63vtW8B/+XjMAK9rPCIwCrhgGovDckcizk49s4JBgfhXLcrEAMpaX0iConytU2QX6IZmV5BKT
mX7RFO4+ZuyqYUn3UNnsHqIVfn/tW9xT//zVdzisvklP7TjyoggfSRr00mk6faTZX8izfIYMAiOe
K86dQh0GJSttieTJ9ixj6w4sfavtzv8j8vNnd6I9tAMVYJ8OX9D92Tve+h62+6opy79Szr+5qaF/
ZMZ59NWP135WBmhe/sB9T80gqJY9e+/3O9CN/s5nbgVOwk8OcDO4HXVcJpz1hiNl/vRWUNL961WG
tU9/zz1AihAvVFbmT/WEKqEUiPnRWnJoPF9u/0k6B6UfLa+9amp2U4cJKkLf9w9Glnp4IzDiuaKk
atRtFAoJglM9VF3pydEkni9sUHfgvqcNd75z1eWOomSikgPJWflTLNsLv7/mM/3qZ6ZnihJ+xlXf
PZCjikqsAjId6qD8cr5QQVkIWVV+/tF9n8EW2Zyn3snewesRWmi70iw5aghjMlNdY3mIpUn4nwOo
4YEh/sE9hRtyxz9Wr03DGl3KJZWUuhWav380AMtCoYgLZVr/+x2EhyiqhBjAZIThELf1i6RzUbov
Hbt/GLPUQx8BxhVDv40GgULf2IBoWcpmo80nJCozIULtdBCnomCHmx0zYRygaPa4qqhD66MS9xMl
jZSFNCtRPpN86LGCR83inJucGKb1/cKH2rt+moOcGDOyL4cTvNEpb2U7CvVXzECedvSwrmwnegiX
8BAX6y+/h2JWUJYTVZwGRgD3rr4GDR4JnX4g6dyW7i8MWT4MAYbAqEUg66ZbN71zFfeP1dc8faCK
SGapqMyakZNZ11aFxCaR4SDhkX695l7wnhrg0CeV0MGHr9Y+DalWwxhi0zPTs1BZzlnps1LLnv1H
GT1tIdx71Cw+EqaSfhZNRIDauSfqQFoZun/YTyDTYjLrynaIHw5X4hR+iFH4/bzP9P98975N72Jf
FompSKd6ks5J6f2kWX3tWMxhhADjimHUWANHqu9skPP0u7fexRV9UIjc+HJRmZZ9BVLP5du5nMvJ
vk0wq54FWYrC0zNV23B8qlvvqvv+GSiIF8KyrPR3PnvfP9MOzAPzzL2UVhbjngjzo8U5cO045HPW
boeDu+FLpp8f2JFGeCLnipkG8pArLBceCn4FsSH9g37OXQu4D/5xoFIGEylNVhYoaUKS+FYxmheI
n6PSfe/bqvunFyCwPIcGAowrGNP235IhGMpFpT4zzVABIn1WNvnIclaaIOG9wpyXt/o7f51f+Q+i
1JWzylxw1V1pyItAfw1ChWZRR5h/VM/Q6PVe4e+/yNrM2u/n3b36Vxu4ux7g59cv//VVmRs+gofz
3jSIDwW1D/+iYcEHT63+FVqy0d8Llub9c2bZr6AsHFzmOTP78v2Iznn7OWrdili6jyQNfuk28vkI
fNH3/cWRpR/OCDCuGM6t5zfafWGD2gOC8Pzog9SrkOGuJCovn5mzY78B3PuYVv2dD+RzRMLfTdbW
eXmlTX96geGZpw5UKmRV9gzKFoiZfifYkFJl4UmzeCaMyUwvm0o5uuaxXW13oeZh12AgcKikdt60
7LOdaA0/fT8YZbMyhioCjCuGassMKl2MDTzCzWSmR4jURPBlv77/PA1qF5KMmBKhScS60PcjpoKs
Ij4gwLjCB9BGXhLGBh7blMlMjxCpiaBlhr6awdEgxin7v7tXXyWE/9uvsmRI9f12lXFZtOGHgG9c
4Z96bn8TMeS93s3oSQh2nRaiffRBrYxOxYf+qQvLhSHAEGDn8A9BHtAvfva+79+77/tn8yvfVKnL
c/703lVXDMGqMJL8hoAPXOGXssu270dFv/NTMius/hIIfs+HtOpLYTEZAgwB7xCAL+2ya/AQQI2D
vnOKLvqepgA/F6LMzJmDbttg+SRxANz7WRt5V/nZR/gJLKaFqxzZTHXkDdzjyG+W09k++8/tdBi8
OrOSPCHgK1egRv+/Nz+6CtZV0e0ucMKON0Vuodij8HvCGFL+ccU2kBDGnYY1T63+v0Ipd0n4jSZD
5F2RjcX6C5zpSEt6gZxvFR8KvK1QlieAh8d7NWwwPGoyYFS6kpkDVuDIzNhh61dsKJi7ZJUjvIEO
xPV0la1cUrBG7qBzkwjii0WQhPBks5Jr2tucPVHq/L626B4HMYo0eJ+nf1IY1vwRo/RHw+IHyXmZ
+sXPLd3yPoSrMzcUYbjK1mzQL8dPZCb+9jc2b595NYrMp+Vpev33PxGpo+/9QzLLZcARcOYKKNJQ
mXb1lufyszgO2r1ywULc7vo1bxZVwNnVafqKWrzRZn9ZZRq3fT+6376vLCsNrHY5/0By7kFgp4WL
64qoHp2zHDEYYr/lsD5cqRRcbwcZFAwCwUtWrcQTVc4U0pg53s7iRIGgRJViWQOO/vAoYP9mUYDf
s8Gxx2r7G0iekCf0/fCoFKPS3wg4TunJunnhljVLcYB+nrP8oRxVa+2AIDXrBxxr2PSLn8elgGz6
4+btmpzlUJxiDt7m7BUZ0D1Ap/L1xVX2KrmvkfmNezg5fS/BEIQsgeh5/RoYEpGy+P4MoxNDBdoI
C3tby1a+Wea0OLBsG/hjb1Zou8b2PqLs4S/ce9dqvtaXlaIGAd+5Ak7MnKXHRaB25+9n5VxRW7a9
jsualZO1vwz4B/T9FQtyQPdXaIB5SDQZ/0Byog9gLE4YTHHdqUIp5NQXgQw6lcDGa5Yun6VMIXXW
ljRnvu8rUaVY1ojgT1Vs4LqmFZ8VzH2DW87LtIVX7C+Yy8sHLBOeX/ruzdDu9L2XonsIgOxSZg4B
2tT09CESR+FLu2jQffOMKxCBbWueXDV3MQr3bGgTeKR8JX4y941y6oQ89HDlPoQ98hmgCKCf3Crz
WbnYSIWEIGhITA85O0VAaVe+UTD3yQMVQlnPrNpGBxd83bZmg2Hx8/NwHekgy1CgR0IhTS25x1XY
sJkARUBwHeixjKtxjfA8LfeKtLJtkOG+zXM3xL67ZtmWNUAzeRu7+Pll76YVUTiLubkcLjW2G7HK
Nw6/7j5EustAkeETV1A6k+qJhPdwhoh/DBW15dtqc69A3c1QWQsHtMFDRf4BxQAMhsLyWTIGdkWe
e5Zz5kPFfBQzER86UzWg1sC51R5q2MAVhW3b93GUTItd/OCMrH1l25F0QqYCSPKV++j7c1tTn0sf
wa3vMyZeJ3TauVcL/r0Zyxfgc/g5/ZLnl21dA2Fe1qeF27E42f7Gpu2z5qGHD+ID/FEwfPBkYfbz
y1bMgvuyDz7VL8dJ5rjVLZUbCrenxWZRcTzljIrWPAg5L1pSWwjrfknRlWnztj6fny3kI/NjK+MB
lhCXOydNUYQ7MoTiKm9ehGuqX/NGUaW76hjW1OYSTFAt+qfzHTQDnbU5cxCqcN6WHtVxXymdefaC
eUvgDCweClIdfTYcvLXf4IoRmtqNXvMIGyMMMALeCXuKK6imBD4R2h2YJI2wtx6YZ/sbhZWzcrLR
vWH7hlYO3fOcT/GPB7YRClIsReVQyH1aigAHk6ukSiUBQz2ad2wg40nEFeC/oeqYljMnrWz7vpwV
SBQjSb5iFn0/1NFQFFNM5/tFelPn8KP8DGveKJ3zUH6WmPf+TVcufvvKxZu2gX5Ffj9gI/0S2oHM
cdveWF9x86LF6YQNsecQ1gS4oo4zvP8kZPj23TA4eAEXJHjzPOUMRUNZkHb9+6ITEsky4uHkQ1MH
MmchS/gL967J4ONXbFiPK7h+DX9+pJghqimf+YW5c2pLwWXq0riCTkUwgZg8UC4UhZqeLUB05ZOl
c16YN4dkuw83xH4OxlK4UmUrMdnvp83gkeef6xe/AEM0XCk3reAX3mGZ+AsB37jC0XcQS8x5SGx3
wxKhC8MUPkzto4l8DQd/t5FJfQX+0S9+aAZH2AY6u6xeFHmKpQhdWMrzThLabVqKAAeTK1E1ggW/
GjZww3IKvhV9FhHL/czZX3ze/3xGcOv3HxzVOWiO1XRgpkBXxafr766dsRVm9MkFmubT2PdAN8Oa
u7sKs15YtBg0On9DYsDPTRUgR2bNew8mjeh8QKl/gMx96SVLTnJQmbObtPJiEqOCkcp3eTnXwpkG
Oo4ike4fKpe9/1T1dfk5zV1meE3fuyaVvRn5CDCuGPltrKKG/WMDJ/FYW3T3E62LkRBWFGUqCBp6
UZjM9EubUB7+2qKVn+pXPCT67SWO5W24NPAZwpcbtu1zOJBhIc+ch8Dlvv7uTx0Ps2929jzzVjch
mh6UCE885iyPQIawstxIzmc73Puxc5bczL3/usNpL+ZDZYgcknxN95VuE1ymUP0K4lGHh0LpsIaZ
xKz8tFCIqexlsGNQCZH0vepR2rD0y7HauUeAcQXjEJlA8F44YJn2hDi9aFjzeiF384wrBVNfFDuu
ZOawaALvYWECUwEBx2q+bZ8WVnBlK+56ew4Jr5dxs5BjGd3v08zh1WvsEuxA5iMIanfOQ7fN2bce
JeFzQJ7nJWjRkLOv0IXS5zzmHLsEOyExeZu38X4rRaXvmYGzbr7t/VmlS/jKbqq4+RpMraRHEIck
rim4TGdkoRJjl9ycu+11jI8DE0ilz6pFQC35lBNiqvTE+Uj/AE80ewaQEeBvBGhOYFwxajnQdzZA
Mu1mgyDA12+bBT9jR5bSJ1zBekd/e4emuLZT0HbsX98QKF1xZ2HWn29bouIjRntP1Fw/I6ul2wIl
0fe+FcxSjQwEGFeMjHbsZy0YG3gEkMlMjxCpicC+vuMHF5D6wafvI3l/m5b9HS4yevyHAOMKxo0y
G1a9SBlV0DFY/NLcsIYfnRDLQj8QGLvyXz9fkq4OQ8S2Qkz6njXBaEaAccVobn1FgcCEgyJLMFj8
0VPYOfyDetKyncxK4Yu+H1QiWGFDDAHGFUOsQc4NOYwNPOLOZKZHiNREAK3fDyuXpfUSAWbUMX5z
RoBxBeMK/mtczA/oVqIyU98/PWXHyXY18/8sjl8QOFNTN39WjqHHCrn9cKxy2tj0rj7+bGm/5M8y
GY4IMK4Yjq3md5oZG3iElIbIY2QWwRUCsHMPvCYsDBICGnIWIhnPAvZI4w9S0aygIYsA44oh2zSD
SRhjA49oSyDy0s/qHyt5RBSqtcMEMwuDhYCNc6h9uAelz8BnCDCuYDwACDA28MgGNERsZtpnBLSg
dlgYNATw/hxhvQW+G7SiWUFDFgHGFUO2aQaTMMYGHtGWQKRm3RqLo4SA7p7f/EGd66Nh3Ws/rttb
shWHs3G558fJhhoQ4fDZcRk5YT4PQTxmKKFha2v4VedFuCDe78T4p1KtnV0T0vVGKwxqucrG9mR9
hNmG7odzkDRKsSbpovTWda+Vai5KStKIraC+OSAmSTusMfGO+JHIFa4QwNwi7bln9/3454+rNEh0
jMbWF/u+N2wglYR7GzB6KrmO7pU+9zVZO7rv4Oq7v4cq0BANZ5mpsqUGKprWbudUBo6LmHvHtc88
jMJtYxVSkbUDKnNTE805Q4qGS+a2HH7qqwZX+fidGDUEe4zDn8VBxl8wrW/zJ1weSx+gCDRj/GZW
hN2efNvDU/MwX4mtoLo5HGkHiNohmO2I5Ap3HfNM41GH2Ok6drpLYI/R2PoiUN6wAQAFcnjqZF4m
X3JlrBeSxC9oQ69PbCnd0sKX676Dq+7+HmohgYjZ8b4ioLv74SfUnU7XVbzHED51THY4fybZsa++
XWdIvjAjqGnvj38+Yjj7dekxzlR+pLRYgx5yYOe9Cr6B0q2tEXPHR+Cfh4tbq9ftM0++wPTFq4fP
agzvfnx4614xftfWf219d1sp/URWIqehaQjKnhpx9qvSs+cBSbK0rVAWRYzJKWf/Havm5VFJho7u
8WDrw3y+RlPZ0J4Etj6oRi8zGWLx5YxB2pq0C27BoH2r6eZQwRsoLc5EziSAFc9XxRpNxccncCnD
HUBuJHKFq0YBluhOHGcqNsRiKcFxJSe+CEvOrunCskXkHA5JlY9PbN3bnTg7ORF1EJk8GfaN7tyL
vWcDuuvRAjZon1yW0gBqEltNUrR96Guo6Oy5yce2GbIviA2XSGahpfY2aoSO7FY1OLe1y8alIRoo
Q3gU+BBgXt/jwkkhAte1Ze23T78C4fAxOzf5+qmJe0qP2Ru27om47fqpt/2WH3j+5sIIyPPYl4e5
66995reXzG0t3dqMc+C6muKmPnNHbiK+39KS9Mxvr33m+uQmlAlEiLgSHAnw5LckW5LEiTbJk4jE
uK6mFue0yVJilHJWX2u/xkTqHgXEWfge5vVV4z9kYzoY49t1p6UNh9pL1hweeYPiNzmToLRNF10C
fHIb13BspGyAGJlc4YpdOS7xwtzEM41NOAIY+pPHwsBNbHRyg6UKlgaTSbQvDx8bN5VIjJHQZZTA
8YUN6C7gELAKEk/sOM+M4xwdxwG7s0D21NcgrT73ytiSrdIu7yjo+ogtX5U2ee7+8rZ20740RKNp
DtDPIxE4h1/lcj5oZPDwX/PsbyFMOR+lSpp7URcYZE0X5eCfvBcHZ9hQfIYDZ8DTr/64paWrqZW8
jYDujd/irC6EqVu7ZlzSZK7rbAum4cyhp1+FJGAXkid0hoRI+RMyLvCcVp6zyioPQDSi82EhPz4K
mbPbVOM/AMSobXr3RdOMcc3Px9HNJLaXV7xB2lSRSYCveC5KujB3stj6/qnIuUN4BHKFKzAJJyRN
Bm1xxq5pKdnK5c6Nc+aT8MS4hnVfNQi9A7U7LzGGe1u7od9rNqC7FS1gnWWpo+NgkSt2MZ/7Gl/0
+ddP5WCZl0MySwtqaSiWS3Jn1SBra7fdkIaISFEWvEdAq96A5NuZMk0TYtEgPTE2QrTMERPxxh4a
IjzzWxRuG8fb7dRbzHeCWYjuzxx+am/Eb1B88Bnwb51LlDxpaTzWkpQHmbtPq/RWfa39GxPoF4eo
cI927g3/4KaZxFd0HDJ89Mgb0iQKLOFc7jAFc0RyhWtTH7Vb3oW5TWcaG0saE8clCcs/aCkB1uo1
v4krferVw0dpKTH8O4sbFvWBDRT7iEdZ6twrfehrQpKkK8c1/nevsDKDV/9S2S5/KOv+8rZWCRGz
9X1GAFbzadQF0pB05Mb/fqWBdVv2r44cQ5nQESISYruOnemmcqbfKt9zsREJkM/pRnBA4YKcS6Sf
NP73X6XchWPzMP3u0zq9VVll/0cT+J/M5GNNphZ//xPjp6LdNJP4ygfeUGQSiq8cfDJkkVFL2Ejk
Cld1F5o1NjmvpXRdS/KcsXRPl/BSwqypV8Z2N7VABGd5ohZbPzH5YBTnPRu4EqrO8lCx4yh2T/Gh
+77mKDphVm7CnsYmWE6IhHZy3jhB8kMPjU2eFOtRNSBsqbZ2B7UUouG9HuocrkzxwsOv4WDR3Ld/
eg2F1/d2Fn99+OyFOZPBz39h17qvwReXNHkcigCvNFz43Otzub0/4siHirHDFgfeUa9wD36nM4dR
/BI72PrEn09FExOKNBzWXHfNby7EUwYKaSliFN6eQ18uGp+JFz89MbydlorNJGtBH3hDkWEovnLw
yblrTX81HJ62G1lc4dLDL3Tq8LkXhnOxiUmSni42esN6JDp+3BqXOzcWsgqfe8fURCJPkKgZ/i2u
WAWv2cCFUFWQeIodR0zuQ1+jkyT9/LrwplZevE++TmyprrnX5+D2dd/9ZW3t3sMv6Sm+rmEf9em2
nWwTBlDs3wFHoKzh7M0X5nRakKG/uag0Lz2h1zLghY7IApr27nr9TNJDsDh0+FePccXwb0M/1GDI
ssHQ6Ws0RH5AfLRmQQ6IZWGQEEBb2EUnxrDfszdIoNH82bRv159e+w7C63u5K6/PxXu6hn1gXDEC
GrH/VRhqbDAE+xoNUf8BH7U5aLadNIzWEc9g1/t4+dlxY6Jm5CZ0YVv/ZGVTdVNnTkr8YNPByhtK
CDCuGEqtcc5oYWzgEXoZRB7jswiuENC8u/UMQ2dwEMhIBJUfb7ZpjLBfD19Y8XcMTumslKGJAOOK
odkug0wVYwOPgDtD5DEJi6CIgKa9F33rnV2Dg4DFpjFZhXMHhCLDAtEHd9k1ahFgXDFqm56uOGMD
j2ygCJHHVCyCDAHNNqO4XZaBwxBgCDAEGAIMAYbASEZA8+b6H0Zy/VjdGAIMAYYAQ4AhwBAQEND8
e/MphgZDgCHAEGAIMAQYAqMBAc1ne+pHQz1ZHRkCDAGGAEOAIcAQ0Nz/4qcMBYYAQ4AhwBBgCDAE
RgMCcOgxW803JBq6obXzg28O9hrN+eNTx6UnAE3jx4zYrfwPvLThH48tGBK4MyIYAgwBhsBoQoBp
/SHR2t/uO73lQNmNF0+cNTFDJAi+kTBSr4df/Zxp/ZHauKxeDAGGwFBGgGn9c986L6//QcNpb7tq
SmRYCE2NduSq/cde38i0/rnnPEYBQ4AhMPoQYFr/HLc5WPlw0uTiG2Y506EbnrZ+89mzbW1tY8eN
c4PsH976kmn9c8x5rHiGAENgVCLAtP65bHaYy//buh+X3XxJRGjwyND6f3nh+Ya6eo1Wk52d/Zvf
PeIK3KdXf8W0/rnkPFY2Q4AhMFoR0I7Wip/7epstVli+d2X+uJDAQIvF5hzMFtvwCuvXrauuqnri
6eXxCQnBIaFuiD/36DMKGAIMAYbAqERgwLV+wSINXIsK5OgWr5wMzyevLB6VsKNKl9cbuo3miZmp
ZotdDCaztbqq+mDh/t0/7Dp2tBiW9Jut9uES9u/bExefEBGt/93vn7zj7vvckO2m0RHDCOxCmIdm
EsQ20rcoBr4cPEZ4S7iUeYxkLUsIZLlMS5eMyYcc+KylaWTMTr9Ujj+qe8Go7f6s4gyBc4XAQGv9
goKCvIUL8+AfqoZI4t7GLV+Rd65qPSTKPVJaP35MstlqE4PJYm2oLW9vaTSb+ox9XZUVZTu2bukF
zT/kjf7X/vbX//ndg709vS3NZ5947GGPBKtvgLy8vOIVK50GjXwGeSuOwdZTcq1fKCrjFZPWC0+P
reBWTJYrftDEiwoW8nHWcyuFsSdS5J7SuiBdpGT9woJF4gAEZViwUKDx2MKC24SihNIRnceWj+6e
oJ4bWEyGAEOg3wgMsNbHSn/5cpnaRxLv2PJJ/SZ+eGdQ3dSeHB9tstrEYDF2BwdowsJCwkJDw+D/
kGCL2XT61Mmhb+v/6sFHZ1x0KbTH5Vdd+/TzL3sk2IuWWwijQ0qPekhZvHJlAShgfgQAkfOWww+l
cUNeHs+AC9fzWld9WndELFy4kDt+HLuwENli7oQWpuC9aHoWlSHAEBgABAZW62Olf2te3q2g9kWD
agBqMbSypLzLjltnEls6egIDg2gFGRjAga4PDweV71D8HW0Gj6bzUIhQU10BdZx5yZVATFPT2ZIz
p+HmbNPZirIyZ/K8abBJy9eB3lfHPsUfFRQjjpPkT+lhwUUADFksdwGoTKti2MFNmoQoKD5+nENl
s4shwBBgCAwdBAZS62PbCYtgpPaLCz4aJXP4zscdKh6ACLqQs2ksFrsYggIDwcSXKf6goECPpvNQ
iNDS1BQaFqELCF712l/effOl0tOntm/+Zu07b2z6eoMzed51gDzwFhWvEJ3jVGJQ3U6z80Tlyq7i
4uP0E7C6YUaApKbd/2rSKtMuUIId+sTVcLzYDcO7WlfgHTIsNkOAIcAQ8BKBAdT6tO00utQ+x9Fq
3tWZx3FRYZ09MGfvWMrXZ9GBV1+m+KPjkoaCUndPQ3PzWbPZFBuPSL3+Z3dljZ24e8emwr077/3t
U4vufri/Wp/jFq5HOtpZ71Pz+qJTn3evSzuC6M93PCYz69J5f7VpnXsZT4nybIJCp6Tm9R3TEV52
XhadIcAQYAh4jcDAaX2k9DnRFpu8An6MGmsfNQNR9m4+cxAXHXa2vZNezdfUaTVzgbTiD42IDI1J
HgoOfPc0HCrcA5VNGZMN0SL1CR3tBviZmpHd2tKimNBrPuX1/sqP3KfMmzSJk5n1ML0OS0kVjXiU
Vx6aP8BJVKSlBwXIf+984VUI/GwE8u5Ll7F6X22WgiHAEGAI+BeBAdP6BStXFNMrrMGocrcY27+1
GiK5uf+y0dTc5IraJno1n9FiO1lvbOrWmLkge2CoJSDaEpZqsWuHvq1fX10BaxTyL712zRvP/3vV
izkTpoaFR1WWnCx4/++KxPvSQFihroDRo7uLrP2jnPZ4uX7eiuX09Do8c8TAjIpX9rlPi91Vjt0E
KBmsU3WaTCCzEWTTgTxDSbm+QMDSMAQYAgyB/iIwUFof2ThSoYjEIW/68NuwkfnvNLPa3woNn/R5
2UmwP6+lrYt28hvN9qoWy+kmW4UhoM0UbLFyQ9zQX/WX/z117EBLY93EaRcDqdctum/B4kfOm3LR
zx/44+JHnvv5/X/0k60vmOWe2hfP2E9yTPfjeXbZynmw7xcWCAsCFh1fIaysd58WrcBfcVzY5o+S
KbvmKRMfJ4Gdg/zaA6BlnTBOoOb12X59T43K3jMEGAL+Q4CdyOs/LL3PqfBkzfrtJy6eOlmnVRh+
DYuv72zfuNbY1xeXkp5/6XXqAfhi+y52Iq96uFhMhgBDgCHgLwSY1vcXkj7m886Xhc2dtnGZY5zT
j9xP7nHf/riHaX0fOYYlYwgwBBgC/UCAaf1+gOePpB3dfc+t3RYflzAmJVWW3wjW+lv27GVa3x/s
w/JgCDAEGALeIcC0vnd4DURsUPwffHuwsql7XFZWaEioWMQw/dKuGoh2Fu5nWl8NUCwOQ4AhwBDw
LwJM6/sXT99z211c9fG2Y1FRsfqYmPCwCMhoBGv9PQcLmdb3nVdYSoYAQ4Ah4CsCmvtf/NTXtCwd
Q4AhwBBgCDAEGALDCQFm6w+n1mK0MgQYAgwBhgBDoD8IaE7U9fYnPUvLEGAIMAQYAgwBhsBwQWCg
TukZLvVndDIEGAIMAYYAQ2D0IMDm9UdPW7OaMgQYAgwBhsBoR2BQ5/XhYNLguWxCYbTzHKs/Q4Ah
wBBgCJwrBAZb67dvij5XVWXlMgQYAgwBhgBDYJQjMNhav+W7OM6uQd+g5S/xXgMP+Od2dO/4Ocqb
iFWfIcAQYAgwBBgCfkJg6Gt9cQRADQUkwwJ5BDRcECLgoQMfgePo0Yaf8GPZMAQYAgwBhgBDYPgg
IGh99Onv4uV25W+H+qs6MK/vva0/IFqfGhYoOh5gsCBxQgiOByqyUwR/ocTyYQgwBBgCDAGGwAAh
MEpt/YHQ+nh6QtEhITobHI4HFNnhsVCIMEDtzbJlCDAEGAIMgdGMANP6frP1/az1lVc/8AML6aAB
PaSXSvCeCaV5kNHM66zuDAGGAEOAIQBaf/0iTcHCY3kriYcfu/oXrji+YkUxoJO34tix5XkEpoJF
mkUF6CZvxYpJKwryHG/UwjiyPfzDQutLiFRa/eAxAh5SCM4JKge1TMDiMQQYAgwBhsC5Q0ADih6U
vn35cX5eH2n9FRxR9kjPc+vxZD96DGMDPATA6p8eD6gln2l9UV969vAPjK3vUal7jCDT+go+Bqdp
DiGOuE3D48JMtRzF4jEEGAIMAYaAVwhoQKWvBLP91o8orS+od8cSP0r/82Y/SiR4AdSWyLQ+0/qu
PSLARe62Y0gTUishXOzXwKMTfOEI1OhELbuyeAwBhgBDYOQhoFmRl8etO7acE9bw04v5JVqfVvMw
CGBaX3mRP69oBGUjsYwp3ziz9XlNrHoTpp+0vsTf4GJYQFpW7cLMkScUWI0YAgyBEYyAJi9vBSj9
PFHBu9T6gq+f2fqCBUk7rgVrUq2qYFp/xGh9z01JPA78+IZ2PEidEPycjsONMYLlDqsaQ4AhcK4Q
0PDz8x60PpvXJy5id/v1vTIQPauKUT2vr+DAH7K2vuem9F7rO62EIFk4OSFEnlR2mRCpwoYR50q6
snIZAkMRAc2KY3Y0Pe9J6wPtbA0/0/q8m4Nawz8wq/mY1ncobAfC/dD6Lk6rxGMJ0prS1Q/UiZbK
EdhJl0NRnDOaGAIqEPBtvz6b13d5eJ+gFz0cwuPZQGS2vsRE5n0t8mGH69OXsT7jTWTHPdZwotvA
L/P6nptyCNj6A6b1XW3HQD4GufdLPrYgbSFxRdB0qhBfLMowRyDnzoeuniLWoWTz778po2qkv+YX
C+fF0lUsW/v65iOKdY7Nf/wX+UnkVWvRi/8uanREc85HKQt5KlkcKamOl4ZN/y74rrU/7aBMXuO+
ghf3GTzl6xNVKrU+vXFP4u33RJTkPVvDz9bwn+s1/EzrOynaftn6A6j1hc4iWf3g+RMbLofLXskq
FnlQEMj9+WPzJoslnd701MZSR7lxMx5eMiNRRkdL4WvvFzY5E3fevGfn5/KPZXEU81GoXul/X9p0
zH3OrkFp2r3utV0elbQsvX7uktvmxrnO1FVlIQVdX2+pUqn1IVvRwQ/3C8kmfm8vpvWZ1mdaH3qN
x2l7jxHoTKTOBngj+2Ql1prK+xtRD+6fh3+4aH1q6ODFNz+Vj8pmDglvJb/L+GN/9uS1E8W3J759
9tMSR9z4WcuWzkxwSnvi0zc+PuH0dOK1T908ln/avP/tVfvOilFc5OOURcnHz38ry3jizQ/+zEGf
p2rLyvUQPfbypbdfHu8+kgJJkKC/VGk9VUR8D5pevHxR+aoLYhEZAgwBhsCwQABmMfhg47RisNp1
Qgiw2MUQaLYLwRZk4kOwyRZs5EOI0TbagkQB2aTVN9sV1dPES2amOQNlpvjFZg+iI7jIR85gTa0d
0myn/tQblQ/Zxc9c9isl2pSaNe3iaz2pfESgpCI4Hz9Qpd7W90MnZLY+s/WZrU+b6dS9ZIk+s/Ud
TgjHUgzsmfD4EW0Vpjy9BFUBak+fxVL8dpdk/aODSFWf+RBpcFq5CTWmPTdqNwZTnwx15OAHCe73
LMb95M83CBY6xx398vUPzzjKSLroF49cJEzrt7Q2xsXy8/Yt+15eu4+at0dJzr/hoV+O49M27vn3
y3scU+2SfJxKcVGn2Kvv/MXVMue7U7l0oUI+rZvX/ntziyek4mY9cucsvjoobsmHr3xzlEpEaJZV
hOP8Q5V6W99TNdh7hgBDgCHAEBhiCMBIQgw2TsMHu9bqCDqLXQwBZjsOtkASTCiAxSmG4D6b/4LU
mrfaJTkb6c98tFQcFFVp3Kwrx8ppMFNDObs9iCZSkg/HyUpRrs7Yi2Qq/9AXq3+35nCltO77N8LD
Aw2SFo+dPDbZI0QxY8dRKp879MXW/dKcK3d9/Lu/rX5hV7ckKz9RBVofJuwnr0Sf2mEXQ4AhwBBg
CDAEVCAAKhkH8HzY7VoSbCjoSLDaAkiwoBBIgtkWJAaTFWY3dHRJyMNvdQQTrfXtXZ/9WClGvuCi
C2OpmJBKqvWDXebDcbJS6Jjifd64HJqw+l0b3z4hoc2Rqql41a42OnLy7Jl5Utqci5BUTR1JkIm/
qGK2vgr+ZlEYAgwBhgBDYDAQcCyVkK6a1FpPVheJBMRPuf48NJgQfRJWia0P/gm8WgJrX5NNouas
0rGFktYfe8F4uqo1G3b0KQ4OyMOKHSf2S5DRJ+pdDBGE0YCMpOk3XTnF00DBaPUbVVr8+dziFZNF
cx826cH8O76YC2AwuJyVwRBgCDAEGAIeEaja+GO7GGnGJeenekyhHIFfd2nlYJqDX3dJLboMMI8f
M5NOeKL+R7T0Ulx06Xxzdrdk7X9UcpybyOhV+fH6Gglt6Q/8YeGy8W5Tjc+UUtXwgzuSICuXVGnx
Hjzxs7n4O7uTyGr9Y/DB3ckwJGAXQ4AhwBBgCDAEzjUCdT8epcz9jBke9r35SG5aQhSdsra50ykj
au8GnteolsZJi4+xins3+KkNx+wG2r7RVLHeaffhhTff9OGTN324IFPRr5AYJ6Gq+qzJjfuBvCo/
20VTnhoXR3aOSD38xR8VFC9cz+/Ly1u+bkVeQQFT+z7yDkvGEGAIMAQYAv5EgDb3o+dfkuFD3jMX
/Oz9P6CwBsITt5DwwROzZvmQVz+S7P748G7F5JOmfvT0NR/9jF7t149ilJK6ndfPmzSJO36cLfTz
M+YsO4YAQ4AhwBDwBYG6H48ViukmTL7Jb+Z+ZJoXWQlLGTm7VmNDQV4Vq05jCSBBa4YQiIKJhCAU
jEHaytef3/pJswsQkO6ffLmuL1gIQfQmUNjQqTGKr1zdOCUhRZvcav3i48e5SZPg2zzsYggwBBgC
DAGGwLlHQGLu3+STua9YCa2op8XDM3E8jcZM9HSw6xAoVclajclNZOpV8xf/LLjnn8frlFFNffjJ
6ZcKhfpQhKskUq2fd+vCvIJFwlx+wcoVxQsX+nDy7rlnDEYBQ4AhwBBgCAw/BBxmtEaiSm06DRjQ
yIZu2nX4gMPcT78QW9I66itOWE9jJY0N5SBYvef5MjQZeMNaFl+jNXm0qjOlSwEaWps8JnFEMBQ9
89e1D/x1h6NSDmrTF1weoliL/lAFWn9SXh6s4UdL+Tkub/mxYyuOLyJL+BcdX3GMnb3rmV1YDIYA
Q4AhMMoQEBa0gW7WaGwkYHe3lQSd1kJCAArIy40d3byXGzm6deDlttKoabUOhzbS1pKDDc2UHj31
3W7xQzeZ8y8NhVeBEq0v8X7LHN3ovJ2/OYfvigVfemur5BN6KfFhnlR4aIZ0dkBWEU/JSa1PfQBU
yc/84VLGp2ViwvxIFWh90PRoyb6g3/mfeBX/cubdH2VdmVWXIcAQGFEIgDYUgxbmoUnQgOksBmuA
RgyWQA0O/FQ0GM3Ivx3sCMYQrf8CHBVIXTqNJOdgqdany23bu1c8vzZ59gUztUap1jfRkSX5cJys
FIXqGJolx/2elwn5u611RJrk7N6S4hJfITLsekV22HBcVAYp3X9UsVN6RlQPZ5VhCDAEhi8CDg2t
AcVMAjGgiYYmLm6soXkb2qGeQU+TtVoo6MDYFYPEgFZndw5WEve2vpb+YAJt6wN5x3bsE0/oheNr
pLa+4NsXfONUPhzn2RBva5SusUP5u8Et4+KZ59M8V3LiNLUKz2vA5aVbA0lu/qOKaf3hKyIY5QwB
hsC5RYBay83BQm4+iOrZsZAbrRQzB4pBVM9oLbe4TKwvGFzcoytIbH2kj6kQKPEEgL9B8rZ9/zZx
x3vehbNSKEbAi+kckaX5YK3vIRw+TX3wF818X7f46ngXqc674cFZEkv/ROlhT/n3XXDd4yuvy1aO
Fh8t2bTX2tjGU+s3qtg391R9FAsannwszl8fxZJ+E13pM97Knw5DNPDEOL4MJiXMRQTSKSSfvFP6
fJnHCDgTgWApkfL80W/qu+aOj6e5+ii7+JwCRFpNoRYKESSE0R9qc00D35qSCCKYar9v5rkpCfJ8
RRQBITEId6mKIEAtUKuMEkELZ6j8qTrCErimUhAkX5BTiiD0BVdNqQSjMj9Q87HKdNKA+PzNPQIF
u4YYArk/f2zeZJGm05ue2ljqoDBuxsNLZiTyv0v/+9KmYzLqqQhNp0u583L5yC2Fr71f2CRGluTD
cbJSlBHRz11y21zZJ/c4OQ2JF9/28Gy9NAMlOp2KoBLK4juVK6mLn6hiWp9pfUr0qxgWOPQEFuK0
D05QRXJN4PQxU6b1KX0sigSm9aVaf4gpKEbOACCQc+dDV08R8y3Z/PtvyhylxOY//ot8we4tW/v6
5iNOFEz5ydI7HV/qFV63Fr347yLH1LwkH/iorbQUV7WSpVJX+SPfrFordRMopkuatfDxWbLhgnIB
8gz9QhXT+kzrM60vsSbdWrEKXpnRbeurE4YsFkNAEYHse+6bO018U7blN9+XO+Lppz956zTBc1/+
7uotB53zkMQRXhsOPv/RgXoxsiyOrBQ3LZMz9+9XZatvuYPfv/MuNWhxkzAl/5Ynp6vQ+oqk9p+q
/w9N+tWhal69kgAAAABJRU5ErkJggg==

------=_NextPart_000_6195_01CAE9ED.1C23CE30--

0
Don
5/2/2010 4:46:32 PM
Reply:

Similar Artilces:

Line charts using temperature and time factors
I want to create a line chart showing comparisons of heating and time. For example one item is held @ 30deg for 10secs then 100degs for 30secs while the comparison is plotted to show the difference. Help appreciated. try x-y scatter chart data-columnwise. Excelon_Ls <Excelon_Ls@discussions.microsoft.com> wrote in message news:6B9F5547-A35C-4272-9FDC-F2CE6122D783@microsoft.com... > I want to create a line chart showing comparisons of heating and time. For > example one item is held @ 30deg for 10secs then 100degs for 30secs while the > comparison is plotted to show the diff...

HELP WITH VBA
I am trying to finish writing some simple program. My problem is that when I try and change the arguement from SELECTION CHANGE to CHANGE, it doesn't work. Can someone help? Private Sub Worksheet_Change(ByVal Target As Range) If Worksheets("Sheet3").Range("B3").Value = 2 Then Worksheets("Sheet1").Range("F3") = Worksheets("Sheet3").Range("F4").Value End Sub My second problem is that I would like my data rather than appearing in a cell, appear in a TEXT BOX. What do I do? Copying your exact same post from 3 days ago word...

Outlook using imap is receiving but not sending
Messages are being put in Sent folder and Send/Receive shows no errors but emails are not actually getting sent. This is a new install of Outlook on a new computer. Have I messed up the setup? "Theatre Girl" wrote in message news:64BB711F-FE56-440C-A850-DADCA8C3BA00@microsoft.com... > Messages are being put in Sent folder and Send/Receive shows no > errors but > emails are not actually getting sent. This is a new install of > Outlook on a > new computer. Have I messed up the setup? IMAP is not a sending protocol. It is used for receiving mails (out of your ...

VBA: move to the next cell down from anywhere in the sheet
I am deleting rows based on a value in a column (< 16) and if the valu is 16 or greater I want to move down to the next row and check tha value and so on. i am using a Do Until value = "". What is the code for moving down to the next cell below ActiveCell -- jm ----------------------------------------------------------------------- jmp's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=2903 View this thread: http://www.excelforum.com/showthread.php?threadid=48770 Activecell.Offset(1,0).Select I would not recommend this though. If you want to dele...

HOW TO USE HYPERLINK within a droplist?
I have a question aabout this: eg. I set row A with validation list "yes/no", i want that if choose "yes", then open a word document named "checklist.doc". Instead of using a validation list, you could use a "yes" button and a "no" button. The yes button can be linked to a macro to open the word document. The no button can be linked to a macro the will type the text "Go to next step" or something like that. "Bonny" wrote: > I have a question aabout this: > eg. > I set row A with validation list "yes...

using forms
Vista Home Premium 32 / Outlook 2007 I have created some forms that used to work. No more. On selecting a form, I get "The form required to view this message cannot be displayed. Contact the administrator. To my knowledge, I am the administrator. This is a stand-alone PC in my residence. If I go to Manage User Accounts, it shows only 2 accounts - LastName Administrator and Guest. I have googled my problem and found references to FRMCACHE.DAT which I am told to delete and restart Outlook. Did that. Opened Outlook and tried to open a form. Same error. And FRMCACHE.DAT was not ...

Using Spanish on Publisher
I have copied and pasted a document in Spanish from Word to Publisher. Prompts keep coming up telling me that it cannot "hyphenate" this document. I'm guessing that it means since it's in another language it needs something to be able to spell-check, etc. I really don't care about checking the spelling, but the pop-ups keep interferring with my arranging the flyer I desperately need to get completed. It tells me to put in the disk and download the "hyphenate" feature. Can I download this from the net since I have no disks. Publisher came with my n...

I used Omsgclas.exe Utility and my contacts don't use then new form
I created a new form for contacts. I followed the three steps in the document How to Update Existing Items to Use a New Custom Form. I can click on Action and do new contact and the new form is used. I used Omsgclas.exe utility to change the message class of the contacts. It shows as changed. However, when I click on an old contact (previous to changing the form), A message form comes up (not the old contact form and not my new contact form). Anyone have any help how to get my new form pulled up for old messages? Note: I had a form with a ' in the name, I made a new form w...

FormulaR1C1 using variables
I want to do this but can't: ActiveCell.FormulaR1C1 = "=MyFunction(R[variable]C[variable])" What are my options? Try something like ActiveCell.FormulaR1C1 = _ "=MyFunction(R" & CStr(variable) & "C" & CStr(variable) & ")" Cordially, Chip Pearson Microsoft Most Valuable Professional, Excel, 1998 - 2010 Pearson Software Consulting, LLC www.cpearson.com On Wed, 21 Apr 2010 13:52:01 -0700, Cheah <Cheah@discussions.microsoft.com> wrote: >I want to do this but can't: > >ActiveCell.Fo...

Using XML with ASP.NET
I want to know where can I find Tutorials/Articles to learn implementing XML with asp.net. I am working on ASP.NET using C# from last one month. I have idea about XML but had not implemented yet with ASP.NET. Thanks in advance. Thanks Vinod Jajoo ...

Change range based on value of a cell
Hi all, I'm trying to do a COUNTIF, but want to change the range depending on a number somewhere else in the spreadsheet. For example, if the number is 3, I want to count from C1:G1, but if the number is 4 I want to count from D1:G1. I've used the address function to find out which cell I want to start from, and then concatenated that to the end point of the range (this never changes). So I'm left with a cell that contains the value of the range (C1:G1 or D1:G1) depending upon the number which is input above. Is it possible to use this cell, which contains the value C1:G1 to repl...

Using lookup formula using more than one cell
I have a spreadsheet which lists clients by first name, last name, postcode and phone number - all in separate columns e.g. Andy Roberts M56 7HN 0161 428 3856 I have these all in one worksheets and in a named range called "Clients" On a separate worksheet (within the same workbook) I log all my enquiries. What I want to be able to do is type in to a cell the first name then in the next cell the last name and the following cells get populated with postcode and phone number based on BOTH of the first two cells by looking up the "Clients" range. I can get it...

Using secured OMA
Hi, Please help me with my misunderstanding. When I try ro connect by t68i or z600 (WAP 2.0) to OMA directly with SSL required, using mydomain.com/oma, of course, I get 403 error. When I use https://mydomain.com/oma I get "Couldn't reach the indicated web server." altough it works fine with Pocket PC. What's wrong? What should I configure to establish secured connection from mobile phone? Best regards, Vit Knyshevich. "Vit Knyshevich" <abuse_vit_knysh@hotmail.com> wrote: >Please help me with my misunderstanding. When I try ro connect by t68i or >z60...

Compile error using CTypedPtrList
Hi, I am having problems at compile time using the following line: CTypedPtrList<CPtrList, CString*> m_ClientList ; When compiled I get the following errors: emailcfgdlg.h(114) : error C2143: syntax error : missing ';' before '<' emailcfgdlg.h(114) : error C2501: 'CTypedPtrList' : missing storage-class or type specifiers emailcfgdlg.h(114) : error C2059: syntax error : '<' emailcfgdlg.h(114) : error C2238: unexpected token(s) preceding ';' I am using the version 6 of the compiler with SP5. Now I think this is something to do with the c...

Collecting Range Name values to VBA
I have a worksheet "Setup" where users type in a date in a cell named "ChtDte" and a path and database name in a cell named "FLName". I am using DOA to connect to a database and return a record set. The query used "qryCOCostwRates" uses a date paramater. Because this sheet will be used by several users all pointing to the database in different locations, I need to know where they have the database. I need to get the values in these two range names in the setup tab of the spreadsheet so I can connect to the data, and provide a value for ...

scatter plots using pivot table data
In older versions of Excel, you could directly create xy scatter plots using pivot table data. In Excel 2000, the chart wizard says you can't use an xy scatter plot with pivot table data. Why????? Is there any way around this limitation? Dan - Don't tell the pivot table you're making a regular chart. Select a cell away from the PT and start the chart wizard. Select the XY Scatter type you want in step 1. In step 2, use the Series tab to select the ranges for the names, X values, and Y values of each series in your chart. Make sure you don't select one of the PT but...

Using resources, how to ?
Hi guys, I am using MS Visual Studio 2005 Express ( yes, the one that u can download for free from MS website ) and I have a "little-big" problem with my program. First of all let me say that I created a simple console program, with his main and few functions, and I wish that my ..exe file can drop another .exe when launched. The other exe is another compiled program, and I wish to handle it from my main program as resource. There are some topics about handling resources, but I cannot find anything of good; I know how to use LoadResource, FindResource, etc, but both fail since I am...

Allow temporarily use of right click
I have made a databse in which I have disabled the right-click option. However, I have a form which opens reports, and I want to temporarily allow (only for the opened report) the right click option so the user can save and print the report. I have also no clue how to create a custom menu with only a few of the normal right-click options I hope my question is clear. Thanks -- Message posted via http://www.accessmonster.com "greeknl via AccessMonster.com" <u30909@uwe> wrote in message news:71abb764263d9@uwe... >I have made a databse in which I have disabled the right-c...

How to use interfaces
Hi ... How can you show in an UML diagram using visio that you have 1 class who uses the interface implementet by another ?? ex: C# public class MyClass : ImyInterface { //some code } //And then in another class you will do something like: private ImyInterface imi = new MyClass(); can you show this via UML shapes in Visio ?? thanks in advance ... -- ------------------------------- Med Venlig Hilsen Tonni Schm�cker Tonni@cool.dk ...

Using two pictures from clipart as my background
I can't seem to get more than one clipart as my background. When I try to add another one, it overrides the first one. I want two pictures, each on half the page, and faded. Thanks. On Jan 13, 7:31=A0pm, Michele <Mich...@discussions.microsoft.com> wrote: > I can't seem to get more than one clipart as my background. When I try to= add > another one, it overrides the first one. I want two pictures, each on hal= f > the page, and faded. Thanks. You can place multiple pictures on your slide (or slide master), but each slide can only contain one as it's ...

Any way to highlight cells that change?
Is there a way to highlight all of the cells in a worksheet that change as a result of some action? I have some worksheets with calculations that depends on other calculations that depend on other calculations and so on. If I make a change to one value or one formula, I may not notice if some cell (possibly off the screen) is changed. I would like some way to make them stand out. A border like the copy border or something like that would be great. -- Running Excel 2000 SP-3 on Windows 2000 Click the cell you have just changed (or are about to change) On the Formula Auditing toolbar, click T...

Using stationary when Word is used as the editor
Hello, I am having a problem with stationary when using word as the email editor. What is required is for a logo to be placed as a backgroun image in the top right hand corner. this works fine in outlook using this code: <HTML> <HEAD> <STYLE> BODY { font-family: Arial; font-size: 10pt; color: 000000; background-position: right top; background-repeat: no-repeat; background-image: url(Pic.jpg); } </STYLE> </HEAD> <BODY> </BODY> </HTML> However when Word is used as the email editor the background image is no longer placed in the top righ...

What do you use Excel for?
Just a general query really. Anybody willing to tell me what they use Excel for? Does anybody use it on a daily basis as part of the personal life? I'm not really looking for the reasons why people use it at the workplace, but why do people use it at home? Do you use it to manage your budgets etc???? Do you use it as a diary? Thanks in advance Excel is excellent for manipulating data. The uses are as wide as the imagination. There are people who use it to track the standings in a bowling league, others for managing a local golf tournament. One can build a loan calculator, kee...

using extended desktop mode
How can I move an Excel spreadsheet onto my second monitor. Word and Internet provide no problems, I just click & drag. Same way. You have to have the application window in a non-maximised state though, and you can then drag it from one to the other, or even size it so it spreads across the two screens completely. If I have the window maximised though, I am unable to drag it from screen to screen. -- Regards Ken....................... Microsoft MVP - Excel Sys Spec - Win XP Pro / XL 97/00/02/03 ------------------------------�-------------------------...

How do I used the outlook?
I don't know my microsoft exchange sever so I can't put in the right user name. What should I do? Version of Outlook? Close outlook. Go to control panel, mail and delete the current profile and make a new profile - Choose the correct account type - for most people its POP3, but could be IMAP. If you need more assistance with this we need to know the version of Outlook and who your email provider is. -- Diane Poremsky [MVP - Outlook] Outlook Tips: http://www.outlook-tips.net/ Outlook & Exchange Solutions Center: http://www.slipstick.com Outlook Tips by email: mailto:daily...