MACRO?

[Neil Pearce]

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

 

[Per Jessen]

Hi

Look at this code.

Sub CLEARall()
Range("A1").Value
If Range("A1").Value= 1 Then
Application.Run "One"
ElseIf Range("A1").Value= 2 Then
Application.Run "Two"
ElseIf Range("A1").Value = 3 Then
Application.Run "Three"
End If
End Sub

Regards,
Per

 

[Neil Pearce]

Thanking-you kindly Per.

Hi

Look at this code.

Sub CLEARall()
Range("A1").Value
If Range("A1").Value= 1 Then
Application.Run "One"
ElseIf Range("A1").Value= 2 Then
Application.Run "Two"
ElseIf Range("A1").Value = 3 Then
Application.Run "Three"
End If
End Sub

Regards,
Per

 

[Neil Pearce]

Per,

The Code returns "invalid use of property" and stops at value on...

Range("A1").Value

Any ideas?


Cheers,

Neil

 

[Per Jessen]

My fault,

I edited the code after I've pasted it to the news reader.
Just remove the line mentioned, and it will be fine...

regards,
Per