Hej
Będzie działać dla komórki A1 w wybranym arkuszu, ale dopiero po wyjściu do innej komórki lub naciśnięciu entera.
Prawym klawiszem myszy kliknij na nazwie arkusza i wybierz Wyświetl kod
Do okna wklej to co poniźej

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$1" Then
If Target = 1 Then Target = "wymiana"
If Target = 2 Then Target = "zwrot"
If Target = 3 Then Target = "sprzedaź"
End If
End Sub

Pozdrawiam