Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "A" Then
For i = 1 To 10
Cells(i, 2) = "A" & Format(i, "0#")
Next
Else
If Target <> "" Then
MsgBox "Zadej A do buňky A1", vbCritical
Cells(1, 1).Activate
End If
End If
End If
End Sub
Příklad je absolutně k ničemu, ale jako příklad snad poslouží :-)citovat