LordRaper
12-07-2014, 02:34 AM
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...:banghead:
i need 15 name
any help is good
txn
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...:banghead:
i need 15 name
any help is good
txn