I have written code to extract the sheet name in Q2 from sheet5 onwards
However nothing is being extracted
However nothing is being extracted
Code:
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