match in multiple colums

[harts]

I have written the following, that works good for what I had. I have a lot of information on the sheet so I decided to make another column so the sheet would not be so long. The I have tried to munipulate this formula to account for column G also but can't get it to work. All in all what I want to accomplish is a something that will lookup or match the caption in label1 in column A or G, then make that cell the activecell. Looking for any help at all. Thank you.


Dim l As Long
l = Application.WorksheetFunction.Match(Label1.Caption,
Range"A1:A300"), 0)
Range("A1").Offset(l - 1, 1).Select
ActiveCell = TextBox1.Value

 

[VoG]

Try

Dim Found As Range
Set Found = Range("A1,G1").EntireColumn.Find(what:=Label1.Caption, LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then
    Found.Select
Else
    MsgBox "not found", vbInformation
End If