Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A1").Select
Macro1
End Sub
'Macro1:
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Per Mabolsie:"
Range("A2").Select
ActiveCell.FormulaR1C1 = " Fortuna che mi dovevi portare in Vacanza"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Non è carino dare buca ad una donna"
Range("A4").Select
ActiveCell.FormulaR1C1 = "Per stavolta ti perdono"
Range("A5").Select
ActiveCell.FormulaR1C1 = "Che non si ripeta più"
Range("A6").Select
ActiveCell.FormulaR1C1 = "Ho fatto bene?"
Range("A7").Select
ActiveCell.FormulaR1C1 = "Ciao a tutti"
End Sub
|