仕事でVBAを操作する機会がたくさんあったのでメモ。
Function Title(WS as Worksheet, TitleName as string)
set WS = WS
Dim TitleRow
TitleRow = 1 'titleの列
For i = 1 to Cells(TitleRow, Columns.Count).End(xlToLeft).Column
if TitleName = cells(TitleRow, i)
exit for
end if
Title = i
end