|
▼しん さん:
横から失礼します。
>Sub 移動()
>
> Dim Sh As Worksheet
> Dim mySh() As Variant
> Dim 移動先 As String
>
>
> 移動先 = Worksheets("売上").Range("F1").Value '読み込み元のブック名取得
>
> ReDim mySh(1)
>
> For Each Sh In ThisWorkbook.Worksheets
> If Sh.Name Like "月間*" Then
> i = i + 1
> ReDim Preserve mySh(i)
> mySh(i) = Sh.Name
>
> End If
> Next
>
> Worksheets(mySh).Select
↑
myShは配列ですから、mySh(0)やmyS(1)と指定するとどうなりますか?
Yukiさんが書いた Redim mySh(1 to 1)としている場合は
mySh(1)となりますが、違う場合はローカルウインドでmyShの中身を
確認することをお勧めします。
> ActiveWindow.SelectedSheets.Move After:=Workbooks(移動先).Sheets(1) ’ここでエラー
>
>
>End Sub
はずしていたらスルーして下さい。
失礼しました。
|
|