Inputbox : éliminer le message d'erreur

Bonjour aux Suisses, Frenchies, Allemands, et tous les autres...

Je viens de créer une macro avec une inputbox.
Seulement lorsque je clique sur le bouton "CANCEL" de cette fameuse INPUTBOX, y'a le message d'erreur qui apparait.
Comment faire pour que ce message d'erreur n'aparaisse pas ?

Merci d'avance !

Le Suisse de Bâle

Ci-joint la macro :

Dim AA As String
AA = InputBox("Enter the AA you want", "AA")

For Each Cell In Sheets(AA).Range("A:A")
If Not IsEmpty(Cell) Then
If Cell = AA Then
Cell.EntireRow.Cut Sheets("Working").Range("A" & Sheets("Working").Range("A65536").End(xlUp).Row + 1)
End If
End If
Next Cell