vbaのコードについて

vbaで質問です

下記のコードを作成し、データ転記は実行出来ますが、実行後にシートが移動してしまいます。
入力シート→売上入力
転記シート→売上一覧

マクロ実行後、売上一覧シートがアクティブになってしまいます。
実行後に続けて売上入力したいので、売上入力シートをアクティブにしたいのですが・・・上手くいきません。

どなたかご教授くださいませ。

Option Explicit
Sub データ転記()

Dim i As Long, EndRow As Long, rng As Range
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("売上入力")
Set sh2 = Worksheets("売上一覧")
sh1.Select


Names.Add Name:="Target", RefersTo:=("=$B$3,$G$3,$B$5,$G$9,$C$11")
With sh2
.Select
EndRow = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
For Each rng In sh1.Range("Target")
.Cells(EndRow, i + 1) = rng.Value
i = i + 1
Next rng

End With

End Sub

No.1 回答者： hallo-2007 回答日時： 2015/04/13 13:02

最後に

sh1.Select
を入れてみては
・・・
End With
sh1.Select
End Sub