stevem,


Sorry been under the weather. Try this if you want the score to be
placed in cell a2


Application.ScreenUpdating = False
Sheets("Light Class").Activate
With frmPilot
On Error Resume Next
Cells.Find(What:=cbName.Text, lookat:=xlPart).Select
With ActiveCell
End(xlDown).Offset(1, 0).Select
End With
ActiveCell.offset(0,1)= CDbl(tbScore) <<<<<<<make change here
End With
Sheets("Master").Activate
Application.ScreenUpdating = True

HTH
Charles


---
Message posted from http://www.ExcelForum.com/