Макрос для выбора и активации гиперссылки из ячейки

Question

Привет, мне не удается получить код VBA для активации гиперссылки в выбранной ячейке. Гиперссылка переходит на другой лист в той же рабочей книге, а затем код предназначен для сбора данных и вставки их обратно в исходный лист.

Dim i As Integer

For i = 1 To 6
        Cells(i, 3).Select
        Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Range("D7:E7").Select
        Selection.Copy
        Sheets("Gauge Lab Asset").Select
        Cells(i, 22).Select
        ActiveSheet.Paste
Next i

Я продолжаю получать ошибку индекса на Selection.Hyperlinks(1) строка

Answer 1

Избегайте использования Select и квалифицируйте рабочий лист, если включены любые Range или Cells.

Dim i As Long
For i = 1 to 6
    With Sheets("Gauge Lab Asset")
       .Cells(i, 3).Hyperlinks(1).Follow _
           NewWindow:=False, AddHistory:=True

       ActiveSheet.Range("D7:E7").Copy _
           Destination:=.Cells(i, 22)
    End With
Next