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