I am having an issue with run time error '9': subscript out of range, can someone please help me with this? I looked at the following thread but couldnt figure it out http://www.excelforum.com/excel-prog...run+time+error


Sub Save_Hyperlinks_As()
    
    Dim cell As Range
    
    For Each cell In ThisWorkbook.Sheets("Sheet1").Range("B1:B4")
    
        cell.Hyperlinks(1).follow
        With Workbooks("reportviewer")
            Application.DisplayAlerts = False
            .saveas Filename:= _
                "D:\personal\10046733\Warehousing\ERT Reports\" & _
                cell.Offset(, 1).Value & ".xls", FileFormat:=56, _
                Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
                CreateBackup:=False
            .Close
            Application.DisplayAlerts = True
        End With
        
    Next cell
    

End Sub