With operazioni
With .Columns(5)
With .DataFormat

.Type = 1
.Format = """€"" #.##0,00;(""€"" #.##0,00)"
.FirstDayOfWeek = 0
.FirstWeekOfYear = 0

Ho provato ad inserire questo nel codice a run-time, ma non è cambiato niente, anche se non ha dao nessun errore...