
    Dim inputWS As Worksheet
    Dim copyWS As Worksheet

   '--------------------------------------
   '　  どのシートを使うかシート名で指定
   '--------------------------------------
    Set inputWS = ThisWorkbook.Worksheets("全テーブル項目一覧")
    Set copyWS = ThisWorkbook.Worksheets("フォーマット原本")
    Set Sht = ThisWorkbook.ActiveSheet	   'アクティブシート

    copyWS.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(sheet_cnt).Range("A" & out_idx) = inputWS.Range("D" & inp_idx).Text
