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/

Great, works..

Once I changed it to
ActiveCell.offset(1,0)= CDbl(tbScore)

Thanks for all the help, and hope you feel better soon.

On a side note, notice you're in Biloxi .. used to live there myself
YEARS ago .. (as in 1992-93)


Charles wrote:
*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/

stevem,

Glad it works for you. the cell you selected was the blank cell fo
input. sorry i didn't understnd what you wanted.
if i can be of help again let me know.

Charle

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