Trying to find a value in a column, then select a range in that row to delete VBA

Hi, miltonsrevenge,

maybe like this (untested):

custid = cbo_customerid.Value
If Trim(custid) <> "" Then
  With Sheets("Optimization Data").Range("A:A")
    Set custidopti = .Find(What:=custid, _
      After:=.Cells(.Cells.Count), _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False)
    If Not cutsdopti Is Nothing Then
      custidopti.Resize(1, 30).Delete
    End If
  End With
End If

Ciao,
Holger