엑셀vba) 문자 배열 함수로 넘기기, 시트 여러개 랜덤 위치로 이동

Sub test()

Const Max_Val As Long = 5

Dim Ary(1 To Max_Val), i As Long

'ReDim Preserve Ary(1 To 9)

For i = 1 To Max_Val

   Ary(i) = "Sheet" & i & Int(Rnd() * 10)

Next

   'Ary = Array("Sheet4", "Sheet5")

   시트여러개이동 Ary()

End Sub

Sub 시트여러개이동(Ary())

   Dim i

   'Ary() = Array("Sheet4", "Sheet5")

   For i = LBound(Ary) To UBound(Ary)

      AddWorksheet (Ary(i))

   Next   

   Sheets(Ary).Move before:=Sheets(Int(Rnd() * Sheets.Count) + 1)

End Sub