Dim myXL As Object Set myXL = GetObject("C:\framework VL.xls") For i = 1 To myXL.Sheets.Count Debug.Print myXL.Sheets(i).Name Next Set myXL = Nothing