Dim Workbooks As Object
    Dim System_Renamed As Object
        Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
          System.EventArgs) Handles Button1.Click
 
                Workbooks.Open(Filename:="C:\PV-Designer\Index.xls", _
                  ReadOnly:=False)
 
    End Sub