Macro to Extract sheet names in Range Q2

[howard]

I have written code to extract the sheet name in Q2 from sheet5 onwards


However nothing is being extracted

 Sub ExtractSheetNames()
 Dim I As Long
  For I = 5 To Sheets.Count
    Range("Q2").FormulaR1C1 = "=MID(CELL(""filename"",R[-1]C[-16]),FIND(""]"",CELL(""filename"",R[-1]C[-16]))+1,255)"
        Next
    End Sub

 

[TotallyConfused]

Thank you Rick. That macro worked perfectly and placed all the sheet names in Column A of the last worksheet. You've been a big help to me on more than one occasion.

TotallyConfused