자동저장시 시트위치

'매크로를 사용하여 작업 후 자동 저장되게 설정한다.

Sub doCopySave()

 Sheets("workSheet").select

'aaaa라는 시트의 위치를 확인한다. index를 통해 확인할 수 있다. 

 ShtNum = Sheets("aaaa").index

'workSheet라는 시트를 aaaa시트 뒤에 복사해 둔다. 
 Sheets("workSheet").copy after:=Sheets(shtnum)

'aaaa 뒤에 있으니 index + 1 이 된다. 

'이름을 변경한다. 
Sheets(shtnum+ 1).name = "copiedOne"


End sub