Confirming multiple column titles are present

[tomleitch]

I'm trying to check if certain column titles are present in a header row

lcol = Sheets("UPDATE TOOL").Cells(Columns.Count).End(xlToLeft).Colum

Set Rng = Sheets("UPDATE TOOL").Range("A1", Sheets("UPDATE TOOL").Cells(1, lcol))


If Not IsError(Application.Match("Last reissue date", Rng, 0)) Then
If Not IsError(Application.Match("Risk Assessment Level", Rng, 0)) Then
If Not IsError(Application.Match("Function", Rng, 0)) = True Then
Call Sheets("OPS PLANNER").PermitImport
Exit Sub
End If
End If
End If

I can't seem to get it to work.... it's just throwing up an error 438.

Any help appreciated!
Thanks
Tom

 

[Fluff]

You've got a typo at the end of the first line

 

[Rick Rothstein]

lcol = Sheets("UPDATE TOOL").Cells(Columns.Count).End(xlToLeft).Colum[B][COLOR="#FF0000"]n[/COLOR][/B]

You left the "n" off of the end of the property name "Column"

 

[mumps]

You left out the "n" (in red). Try:

lcol = Sheets("UPDATE TOOL").Cells(Columns.Count).End(xlToLeft).Colum[COLOR="#FF0000"]n[/COLOR]

 

[tomleitch]

Well that was easier than expected!

And I'd been looking at that for a good half hour trying to see where I'd gone wrong and trying various things!


Many thanks everyone

 

[Fluff]

Glad we could help & thanks for the feedback.

I'd recommend using Option Explicit as that will help to spot typos.
https://bettersolutions.com/vba/variables/option-explicit.htm

 

[tomleitch]

Thanks Fluff

 

[Fluff]

My pleasure