
    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
