'シ−ト"SheetB"を一番前に表示
Sub ki051a()
    Sheets("SheetB").Select
    Sheets("SheetB").Move Before:=Sheets(1)
    Sheets("Title").Select
End Sub
'
'シ−ト"SheerC"を一番後に表示
Sub ki051b()
   scn = Sheets.Count
   Sheets("SheetC").Move After:=Sheets(scn)
   Sheets("Title").Select
End Sub