請教VBA用標題列名式來訂定公式名稱後,如何選取該欄位？

MaverickRay

請教各位程式先進，如標題所述，我用迴圈+特定文字搜尋後，然後當迴圈找得該特定文字時，便將此欄位以該標題列來命名，
唯我要用range或columns來選取該欄位時，卻一再出現
執行階段錯誤'13'
型態不符合
想請教，假設某欄位名稱為【我的自訂欄位】
那要如何用range 或 columns來做選取該欄?
謝謝
----------
程式碼片段補充

    For i = 1 To J
      If Cells(1, i) = "營業收入" Then
          Columns(i).CreateNames Top:=True  '如果第1列i欄的值為"營業收入"將所選取的欄位用頂端列來建立名稱

          ElseIf Cells(1, i) = "營業支出" Then
          Columns(i).CreateNames Top:=True  '如果第1列i欄的值為"營業支出"將所選取的欄位用頂端列來建立名稱

          ElseIf Cells(1, i) = "累計收入" Then
          Columns(i).CreateNames Top:=True '如果第1列i欄的值為"累計收入"將所選取的欄位用頂端列來建立名稱

      End If
     Next i
      Columns("營業收入").Select

錯誤會出現在最下方的程式碼，縱然我改成range("營業收入:營業收入").select 時，一樣會出現錯誤在此..
能幫個忙小解疑惑...謝謝大恩大德