Hi

I posted this yesterday and had tremendous help from xld with the following solution

Columns("A:A").Cells(Application.Match(ListBox1.Value, Columns("A:A"), 0), 1).Select

However this morning hit a snag if there are similar names and spellings in Row50 (Col "A") - MUNN (Col "B")STEVEN
Row51 (Col "A") - MUNN (Col "B")ROLAND

Enter data against Steven Munn all data enters the cells OK
Select Roland Munn ( in ListBox) enter data click Calendar1 and it just overwrites the data against Steven Munn. Seems difficult to explain my problem In writing ---- yesterday I was the genius today I'm an idiot



Private Sub Calendar1_Click()
Application.ScreenUpdating = False
ActiveCell.Value = Calendar1()
With ActiveCell

.NumberFormat = "dd/mm/yy"
ActiveCell.Offset(0, 1) = ComboBox2.Value
ActiveCell.Offset(0, 2) = ComboBox3.Value
ActiveCell.Offset(0, 5) = ComboBox1.Value
ActiveCell.Offset(0, 4) = ComboBox4.Value
ActiveCell.Offset(0, 3) = ComboBox5.Value
ActiveCell.Select
End With
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox1.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
Application.ScreenUpdating = True
End Sub

Any help appreciated

Sooty8