On Apr 14, 11:41*am, aintlifegrand79
wrote:
I have a userform that uses a textbox (tbExistingProjectNumber) to find an
existing project number and replace it with a new project number from another
textbox on the same userform (tbChangeProjectNumberTo). *My problem is that
if the value in tbExistingProjectNumber starts with a "B" I need it to find
the cell with that value on Sheet9 and delete the entire row that had that
cell in it. *Here is my code, thank you in advance for any help you can give.

Private Sub cbChangeButton_Click()
' * Activate Sheet9
* * Sheet9.Activate
' * Delete from Sheet9(Budget Proposals)
* * If CStr(Left(tbExistingProjectNumber.Value, 1) = "B") Then
* * Sheet9.Columns(1).Find(tbExistingProjectNumber.Val ue).SelectRow.Delete
* * Selection.Delete Shift:=x1Up
* * End If

Private Sub cbChangeButton_Click()

dim strDelete as String
Sheet9.Activate

' Delete from Sheet9(Budget Proposals)
strDelete = CStr(Left(tbExistingProjectNumber.Value, 1))

If strdelete = "B" Then
Sheet9.Columns(1).Find(strDelete).SelectRow
Selection.Delete Shift:=xlShiftUp
End If
End Sub


Does that work better?

Chris