Private Sub OK_Click()
Application.ScreenUpdating = False
Dim tcontact As String
Dim tcompany As String
Dim tstreet As String
Dim tcity As String
Dim tcountry As String
Dim tphone As String
Dim temail As String
Dim tsheet As String
Dim blexist As Boolean
Dim blupdate As Boolean
Dim custno As Single
Dim ecust As Variant
Dim errmsg As String
Dim Msg, Style, Title, Response
errmsg = ""
If contact.Text = "" And company.Text = "" Then errmsg = errmsg & "- Contact Name or Company Name" & Chr( 10 )

If errmsg <> "" Then
    Title = "New Customer Input Missing"
    Style = vbInformation
    Msg = "The action cannot be completed until the following items have been entered:" & Chr( 10 )
    Msg = Msg & errmsg
    Response = MsgBox(Msg, Style, Title)
    GoTo endnow
End If

tsheet = ActiveSheet.Name


tcontact = contact.Value
tcompany = company.Value
tstreet = street.Value
tcity = city.Value
tcountry = country.Value
tphone = phone.Value
temail = email.Value

Sheets("Customers").Select

blexist = False
blupdate = False
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 ecust In Selection
    If ecust.Offset( 0 ,  1 ).Value = tcontact And ecust.Offset( 0 ,  2 ).Value = tcompany Then
        blexist = True
    End If
Next

If blexist = True Then
    Title = "Existing Customer Matched"
    Style = vbOKCancel
    Msg = "The new customer's contact name and company name match and existing customer." & Chr( 10 ) & Chr( 10 )
    Msg = Msg & "Would you like to update the existing customer's details?." & Chr( 10 ) & Chr( 10 )
    Msg = Msg & "Note: Clicking 'Cancel' will add these details as a new customer."
    Response = MsgBox(Msg, Style, Title)
    If Response = vbOK Then
        blupdate = True
        custno = ActiveCell.Value
    End If
End If

If blupdate = False Then
    Range("A1").Select
    If ActiveCell.Offset( 1 ,  0 ).Text <> "" Then
        Selection.End(xlDown).Select
        custno = ActiveCell.Value +  1 
        ActiveCell.Offset( 1 ,  0 ).Select
    Else
        ActiveCell.Offset( 1 ,  0 ).Select
        custno =  1 
    End If
End If

ActiveCell.Formula = custno
ActiveCell.Offset( 0 ,  1 ).Formula = tcontact
ActiveCell.Offset( 0 ,  2 ).Formula = tcompany
ActiveCell.Offset( 0 ,  3 ).Formula = tstreet
ActiveCell.Offset( 0 ,  4 ).Formula = tcity
ActiveCell.Offset( 0 ,  5 ).Formula = tcountry
ActiveCell.Offset( 0 ,  6 ).Formula = tphone
ActiveCell.Offset( 0 ,  7 ).Formula = temail


Sheets(tsheet).Select

endnow:
Application.ScreenUpdating = True
End Sub

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