Sub Prepare2_Sheet()
    Dim sheetnum As Long
    sheetnum = ThisWorkbook.Worksheets("Sheet4").Index - 1

    For i = 1 To sheetnum
        Sheet4.Columns(i).Insert
        Sheet4.Cells(1, i) = ThisWorkbook.Worksheets(i).Name
    Next i
End Sub