All,

Is there anything obviously wrong with the below? Only it always runs
applictaion three regardless of the value in A1.

Sub CLEARall()

If A1 = 1 Then
Application.Run "One"
ElseIf A1 = 2 Then
Application.Run "Two"
Else: A1 = 3
Application.Run "Three"
End If


Thanking-you,

Neil