fai così che va
codice:Dim FileExcel As Workbook Dim FoglioExcel As Worksheet Set FileExcel = Excel.Workbooks.Open(App.Path & "\fatture.xls") Set FoglioExcel = FileExcel.Worksheets("foglio2") For i=1 to il massimo nr di celle FoglioExcel.Cells(i, i).Value = "" next i