What is the Snipping Tool
////////////////////////////
Take a snapshot to copy words or images from all or part of your PC screen. Use Snipping 
   Tool to make changes or notes, then save, and share.

Use Snipping Tool to capture screenshots

////////////////////////////

Downloading the Snipping Tool
////////////////////////////

From where to download Snipping tool
    https://windowsreport.com/nipping-tool-download-windows-11/

https://apps.microsoft.com/detail/9mz95kl8mr0l?launch=true&mode=full&hl=en-us&gl=us&ocid=bingwebsearch

////////////////////////////

from Microsoft Store
////////////////////////////
Get Snipping Tool from Microsoft Store

1)  Click on the Microsoft Store icon on the taskbar or type microsoft 
    store on the Search app to find and run it.
 
2) In Microsoft Store, type snipping tool in the search bar and 
    click the Get button to download the app.

3) You may also open the Snipping Tool page from the Microsoft Store online page 
   in a browser. You will be redirected to open the Microsoft Store app on your PC.
////////////////////////////

Open Snipping Tool
////////////////////////////
Open Snipping Tool

There are four ways to open Snipping Tool:

1) Select the Start  button, enter snipping tool, then select Snipping Tool from the results.

2) Press Windows logo key  + Shift + S for a static image snip.

3) Press Print Screen (PrtSc) for a static image snip.

4)  Press Windows logo key  + Shift + R for a video snip.

https://support.microsoft.com/en-us/windows/use-snipping-tool-to-capture-screenshots-00246869-1843-655f-f220-97299b865f6b
////////////////////////////

Macro 4 for downloading financial statements
/////////////////////////
1) enter a ticker in cell A2, such as ibm
2) enter a staring position in cell A3, e.g., C10

Sub getFinStatements()
 sTicker = Range("A2").Value
  If sTicker = "" Then
    MsgBox "No ticker in A2"
    Exit Sub
  End If
  
  starting = Range("A3").Value
  If starting = "" Then
    MsgBox "No starting cell in A3, such as C10"
    Exit Sub
  End If

  Path = "URL;http://www.advfn.com/stock-market/NASDAQ/" & sTicker
  Path2 = Path & "/financials?btn=annual_reports&mode=company_data"
  With ActiveSheet.QueryTables.Add(Connection:=Path2, Destination:=Range(starting))
    .Name = "financials?btn=annual_reports&mode=company_data"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingAll
    .WebTables = "6"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
End Sub

//////////////////////////