Sub Hyperlink()
Dim HL As Range
For Each HL In Range("A1:A30")
     HL.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
     Next
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub Marhryt()

     Dim HL As Range

     For Each HL In Range("C7:C10")
     HL.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
      
     Paus = 2000
     Delay (Paus)

     SendKeys "^p", True
     SendKeys "{Enter}", True
    
     Paus = 500
     Delay (Paus) 'delay for data communication on printer
          
     SendKeys "%{F4}", True 'Close file
     Next

End Sub

Private Sub Delay(Paus)

     SStime = GetTickCount
     DoEvents       
     Do While GetTickCount - SStime < Paus: DoEvents: Loop

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ВключитьАнглийскуюРаскладку
End Sub

Range("C1").Select