si infatti posta un pò di codice, la sintassi è corretta


Dim CellaFoglioExcel As Range

Set CellaFoglioExcel = FoglioExcel.Cells(i, x)
ContenutoCella=100

Set CellaFoglioExcel = Nothing