Private Sub delcust_Click()
Application.ScreenUpdating = False
Dim custid As String
Dim ecustid As Variant
Dim ordsdel As Single
Dim ordercols As Integer
Dim ordrows As Single
Dim i As Integer
Dim c As Variant
Dim Response

custid = customer.Value

If custid <> "" Then
    custid = Left(custid, InStr( 1 , custid, ".") -  1 )
    
   
    
    Sheets("Customers").Select
    Range("A1").Select
    If ActiveCell.Offset( 1 ,  0 ).Text <> "" Then
        Range(ActiveCell.Offset( 1 ,  0 ), Selection.End(xlDown)).Select
    Else
        ActiveCell.Offset( 1 ,  0 ).Select
    End If
    
    For Each ecustid In Selection
        If ecustid = custid Then
            ecustid.Select
            Selection.EntireRow.delete
        End If
    Next
    
    If remcust.Value = True Then
    
        ordercols = Range("ordercols").Value
        Sheets("Orders").Select
        For i =  1  To ordercols
            
            Cells( 1 ,  4  + ((i -  1 ) *  12 )).Select
            If ActiveCell.Offset( 1 ,  0 ).Text <> "" Then
                
                ordsdel =  0 
                ActiveCell.Offset( 1 ,  0 ).Select
                Do Until ActiveCell.Text = ""

                    If ActiveCell.Value = custid Then
                        Range(ActiveCell.Offset( 0 , - 3 ), ActiveCell.Offset( 0 ,  8 )).delete Shift:=xlUp
                        ordsdel = ordsdel +  1 
                        Cells(ActiveCell.Row,  4  + ((i -  1 ) *  12 )).Select
                    Else
                        ActiveCell.Offset( 1 ,  0 ).Select
                    End If
                
                Loop
            
            End If
        
        Next
        
        If ordsdel =  1  Then
            Response = MsgBox("The customer ID " & custid & " was deleted and 1 order for this customer was also deleted.", vbInformation, "Customer Deleted")
        Else
            Response = MsgBox("The customer ID " & custid & " was deleted and " & ordsdel & " orders for this customer were also deleted.", vbInformation, "Customer Deleted")
        End If
    
    Else
    
        Response = MsgBox("The customer ID " & custid & " was deleted.", vbInformation, "Customer Deleted")
    
    End If
    
    customer.clear

    Sheets("Customers").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Sort key1:=Range("B2"), Order1:=xlAscending, Header:= _
            xlGuess, OrderCustom:= 1 , MatchCase:=False, Orientation:=xlTopToBottom
    
    Range("A2").Select
    If ActiveCell.Offset( 1 ,  0 ).Text <> "" Then
        Range(Selection, Selection.End(xlDown)).Select
    End If
    
    For Each c In Selection
        If c.Text <> "" Then
            customer.AddItem (c.Value & ". " & c.Offset( 0 ,  1 ).Value & " (" & c.Offset( 0 ,  2 ).Value & ")")
        End If
    Next
    
    
    Sheets("Control").Select
End If

Application.ScreenUpdating = True
End Sub