This code is causing a duplicate entry to a selected range. For sime reason, I get an error when attempting to upload the file, entire or zipped.
Streub
Code
Private Sub ListBox1_click()
Dim lItem As Long
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
With Sheet1
If .range("L12").Value = "" Then
.range("L12").Value = ListBox1.List(lItem)
Else
.range("L" & Rows.Count).End(xlUp).Offset(1).Value = ListBox1.List(lItem)
End If
End With
ListBox1.Selected(lItem) = False
End If
Next
End Sub
Display More