Array

[LordRaper]

i have code like this

Option Base 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim t, u As Long
t = Array("John", "Mark", "Darko","Frank","Georg","Petar","Bob","Natali","Tina")
For u = LBound(t) To UBound(t)
    Range("A:A").Replace u, t(u)
    
Next
End Sub

code like this work perfect but
if i add more name in array i get wrong resualt...
i need 15 name
any help is good
txn

[SamT]

What wrong result do you get?

Are you trying to replace numbers (1 thru 15) with Names?

[snb]

Of course 11 wil be replaced by "JohnJohn"

But you also should avoid doing this in the eventprocedure 'SelectionChange'.

[Blade Hunter]

You could do ubound to lbound to counter the "johnjohn" problem but I would probably avoid replace in this instance and test the cell value, too much potential for error.

Do you have a few rows of sample data?

[LordRaper]

i fix this problem like this

Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim t, u As Long
t = Array("John", "Mark", "Darko","Frank","Georg","Petar","Bob","Natali","Tina")
For u = LBound(t) To UBound(t)
    Range("A:A").Replace u, t(u),xlwhole
    
Next End Sub

[snb]

I'd use

Sub M_snb()
  sn=Array("","John", "Mark", "Darko","Frank","Georg","Petar","Bob","Natali","Tina")
  For j=1 to ubound(sn)
    columns(1).Replace j, sn(j), 1
  Next
End Sub

[SamT]

Just a guess, but I'd say that JohnJohn was the problem.