Finding Column based on input, then first empty row
 

I modified the code a little and still no luck.. Here's what I have
now.

Sheets("Light Class").Activate
With frmPilot
On Error Resume Next
Cells.Find(What:=cbName.Text, lookat:=xlPart).Select
Set rng1 = ActiveCell.End(xlDown)
rng1.Offset(1, 0) = CDbl(tbScore)
End With

Behaves almost exactly the same except it won't overwrite cbName if not
tbScore exists already


Steve


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