Sub Disable_Right_Click()

' ---------------------------------------------------------------
' Written By Shanmuga Sundara Raman for http://vbadud.blogspot.com
' ---------------------------------------------------------------

' This will disable mouse right click on worksheets

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

End Sub

Private Sub Command1_Click()
 Dim c
 Dim aLink As Object
 
 For Each aLink In WebBrowser1.Document.All.tags("A")
 List1.AddItem aLink.href
 Next aLink
 
 Open App.Path & "\urllist.txt" For Output As #1
 For c = 0 To List1.ListCount - 1
 Print #1, List1.List(c)

'us-ascii, utf-8, unicode, iso-8859-1, _autodetect
Public Function SourceURL_Stream(Url As String, _

Option Explicit
 
Sub ExcelDiet()
 
 Dim j As Long
 Dim k As Long
 Dim LastRow As Long