Hi,

Several ways and here's one

Sub lime()
Select Case Cells(1, 1).Value
Case Is = "abc"
Cells(1, 2) = 123
Case Is = "bac"
Cells(1, 2) = 213
Case Is = "cba"
Cells(1, 2) = 321
Case Else
End Select
End Sub


Mike

"Varne" wrote:

Hi

Could someone show me the codes for the following problem?

I want a Macro that should do the following?

If cells(1,1)="abc" then I want cells(1,2) to show 123
If cells(1,1)="bac" then I want cells(1,2) to show 213
If cells(1,1)="cba" then I want cells(1,2) to show 321

Thanks.

M Varnendra