Formel suchen und Tabellenüberschrift ausgeben

Hallo Forum, Hallo Experten
Ich versuche in meinem Blatt in einem Bereich die Formel einer Spalte zu suchen.
Also wenn im Bereich C:N am heutigen Tag eine Formel steht, dann soll die Combobox2 den Text der Tabellenüberschrift (Zeile 2) als Starttext (Listindex) bekommen.

Tag = Day(Now) +2

If Sheets("LW11 Volvo").Cells(Tag, 6)(Cells(Tag, 15)).hasformula Then
Me.ComboBox2.Text = Rows.End(xlUp)
End If