target.column

[Dublin Irish]

Hi All, Im looking to have multiple selections within the one cell from a list but I seem to be able to only select it using column 10 , Is there a way of doing a range of column 10 to column 300 without inputting or Target.colum 11 and so on each time?



Dim Oldvalue As String
Dim Newvalue As String

On Error GoTo Exitsub
If Target.Column = 10
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
Target.Value = Oldvalue & ", " & Newvalue
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

 

[Norie]

You could change to this to restrict the code to columns 10 to 300.

If Target.Column>=10 And Target.Column<=300 Then