シートの追加
 新規シートを追加する。
 
Sheets.Add after:=Activesheet
【説明】
 現在表示しているシートの右に新規シートを追加する。
 
Sheets.Add Before:=Activesheet
【説明】
 現在表示しているシートの左に新規シートを追加する。