Salve, riesco a creare un macro che dato il seguente foglio di lavo :
<cut>
GRAZIE
Public Sub m()
Dim sh As Worksheet
Dim temp1 As Variant
Dim temp2 As Variant
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
temp1 = .Range("A1").Value
temp2 = .Range("A2").Value
.Range("A1").Value = temp2
.Range("A2").Value = temp1
End With
Set sh = Nothing
End Sub
Il file utilizzato per l'esempio lo puoi scaricare da qui: