Compile Error Expected: Then or GoTo

[Rowboc]

Hi, my first time at this and got stuck and not sure what's missing or what the issue is. Please could you assist

'Validating Supplier

If Trim(frm.Range("G8").Value) <> "Abtech Ltd" And Trim(frm.Range("G8").Value) <> "AC Valves Controls Ltd" _
And Trim(frm.Range("G8").Value) <> "Access Electrical Services Ltd" And Trim(frm.Range("G8").Value) <> "Alken Systems" _
And Trim(frm.Range("G8").Value) <> "Allied Protek Engineering Solutions Ltd " And Trim(frm.Range("G8").Value) <> "Alma Sheet Metal Ltd" _
And Trim(frm.Range("G8").Value) <> "Andy Castle Engineering" And Trim(frm.Range("G8").Value) <> "Aquaseal Rubber Ltd" _
And Trim(frm.Range("G8").Value) <> "Auma Actuators Ltd" And Trim(frm.Range("G8").Value) <> "Avian Pr Tech" _
And Trim(frm.Range("G8").Value) <> "Axis Hydraulics" And Trim(frm.Range("G8").Value) <> "Camozzi Automation Ltd" _
And Trim(frm.Range("G8").Value) <> "Carrs Welding Technologies Ltd" And Trim(frm.Range("G8").Value) <> "Castell Safety International Ltd" _
And Trim(frm.Range("G8").Value) <> "CEMB Hofmann UK Limited" And Trim(frm.Range("G8").Value) <> "Chicago Coating Company Ltd" _
And Trim(frm.Range("G8").Value) <> "E Bennett Electrical Co." And Trim(frm.Range("G8").Value) <> "Emmett Enterprises" _
And Trim(frm.Range("G8").Value) <> "Eriks Sealing Technology And Trim(frm.Range("G8").Value) <> "Essentra Components" _
And Trim(frm.Range("G8").Value) <> "Extruded Plastics Ltd" And Trim(frm.Range("G8").Value) <> "TM Plastics" _
And Trim(frm.Range("G8").Value) <> "Four D Rubber Co" And Trim(frm.Range("G8").Value) <> "Fike Europe B.v.b.a" _
And Trim(frm.Range("G8").Value) <> "Greenwood Magnetics Ltd" And Trim(frm.Range("G8").Value) <> "H Crabtree Ltd" _
And Trim(frm.Range("G8").Value) <> "Heywood and Palmer Eng" And Trim(frm.Range("G8").Value) <> "Pepperl and Fuchs GB Ltd" _
And Trim(frm.Range("G8").Value) <> "Progress Engineering Ltd" And Trim(frm.Range("G8").Value) <> " RS Components Ltd" _
And Trim(frm.Range("G8").Value) <> "Salamander Fabrications Ltd" And Trim(frm.Range("G8").Value) <> "Scattergood and Johnson" _
And Trim(frm.Range("G8").Value) <> "Silicone Engineering Limited" And Trim(frm.Range("G8").Value) <> "Skaigh Engineering Ltd" _
And Trim(frm.Range("G8").Value) <> "SKF UK Ltd" And Trim(frm.Range("G8").Value) <> "Talbot Engineering Ltd" _
And Trim(frm.Range("G8").Value) <> "Taylormade Castings Ltd" And Trim(frm.Range("G8").Value) <> "Terrill Bros Founders Ltd" _
And Trim(frm.Range("G8").Value) <> "Valvengineering SRL" Then

 

[RoryA]

Welcome to the forum.

You are missing a closing quote on the end of "Eriks Sealing Technology

 

[dmt32]

Hi
welcome to forum

Just a suggestion - rather than hard code all those values consider placing them in a table which would be easier to maintain & simplify your code a little

   Dim Supplier    As Variant
    Dim loSupplier  As ListObject
    
    Set loSupplier = ThisWorkbook.Worksheets("Sheet1").ListObjects(1)
    
    Supplier = loSupplier.DataBodyRange.Value
    
    If IsError(Application.Match(Trim(frm.Range("G8").Value), Supplier, 0)) Then
        
        'no match

        
    Else
        
        'match
        
    End If

Dave

14-01-2025.xls
	A
1	Suppliers
2	Abtech Ltd
3	AC Valves Controls Ltd
4	Access Electrical Services Ltd
5	Alken Systems
6	Allied Protek Engineering Solutions Ltd
7	Alma Sheet Metal Ltd
8	Andy Castle Engineering
9	Aquaseal Rubber Ltd
10	Auma Actuators Ltd
11	Avian Pr Tech
12	Axis Hydraulics
13	Camozzi Automation Ltd
14	Carrs Welding Technologies Ltd
15	Castell Safety International Ltd
16	CEMB Hofmann UK Limited
17	Chicago Coating Company Ltd
18	E Bennett Electrical Co.
19	Emmett Enterprises
20	Eriks Sealing Technology
21	Essentra Components
22	Extruded Plastics Ltd
23	TM Plastics
24	Four D Rubber Co
25	Fike Europe B.v.b.a
26	Greenwood Magnetics Ltd
27	H Crabtree Ltd
28	Heywood and Palmer Eng
29	Pepperl and Fuchs GB Ltd
30	Progress Engineering Ltd
31	RS Components Ltd
32	Salamander Fabrications Ltd
33	Scattergood and Johnson
34	Silicone Engineering Limited
35	Skaigh Engineering Ltd
36	SKF UK Ltd
37	Talbot Engineering Ltd
38	Taylormade Castings Ltd
39	Terrill Bros Founders Ltd
40	Valvengineering SRL
Sheet1