[word]creazione macro

[tetty]

Tipo questo per esempio?

Sub somma()
Dim cella As Range
Set zona = ActiveSheet.Range("f6")
For Each cella In zona
cella = cella + 1
Next
End Sub