Help!!! Find column and define with name

[excel1999]

I have a problem with my code. First off I am new to coding. Researched different sites online and the code I wrote is the best I came up with.
What I am trying to do with my code is search for the column name in Row 1 of each column (A1, B1, C1, ect..). After it finds the first two or three characters of the name of the column. Select that column and define that column by the name I supplied. So I can use that new define name in a formula I created. The problem that I have is I have two column with similar names and it always define the one that I do not want. One column is (B1) "KbTVD" the one I dont want defined and (F1) "TVD" the one I need. Every time I run my code it selects and defines B1 and I need F1 to be defined instead. Also I need my code to search different row 1 columns just for "TVD" because it is not a guarantee that "TVD" will always be in F1.

Code:

Please Login or Register  to view this content.

this code selects and defines B1

Please Login or Register  to view this content.

I tried to rewrite it and I get a error

run-time error '91':

object variable or with block variable not set


Also do I need to Dim something in my code?

[Sa DQ]

Option Explicit
Sub DATA()
 Dim fNd As Range, sRng As Range
 
    Set fNd = Range("1:1").Find("on", , xlFormulas, xlPart)
    If fNd Is Nothing Then
        MsgBox "Nothing"
    Else
        ActiveWorkbook.Names.Add "ono", fNd.EntireColumn, True
    End If
    
'    Set fNd = Range("1:1").Find("tvd")'
'    ActiveWorkbook.Names.Add "tvd", fNd.EntireColumn, True '
End Sub  

[excel1999]

Sa DQ thax for the reply, but I looking for "TVD" in (F1) to be found and changed. It keeps selecting "KBTVD" in (B1) instead. Will that code get the exact match for the string in (F1)?

[excel1999]

bump bump bump