VBAでコピーした時コピー元のシートをアクティブ等

いつもお世話になります。
WINDOWS7 EXCELL2010 です。

下記で御指導いただいたばかりです。
http://oshiete.goo.ne.jp/qa/8787962.html

二つ質問があります。
１
「元本」のシートをコピーした時、コピー先がアクティブになります。
これを「元本」シートがいつもアクティブになるようにしたいのですが。
２
添付図のように最初にコピーの作業をした時は上手くゆくのですが二回目以降でこのボタンをクリックすると図のようになります。　もう一度クリックすると作動します。
同作業を繰り返すと同現象が発生します。

誠に恐れ入りますが　「１　と　２」の解決方法を御指導いただけないでしょうか。

参考に
Sub SheetCopy()
'
' SheetCopy Macro
' 元本のシートをコピーする
Dim NewSheetName As String

NewSheetName = InputBox("一桁の月及び日でも二桁のMMDD形式で新しいシート名を入力してください")

Sheets("元本").Copy After:=Sheets(1)
Sheets("元本 (2)").Select
Sheets("元本 (2)").Name = NewSheetName
Range("A1").Select
ActiveCell.FormulaR1C1 = NewSheetName
Range("A2").Select

Dim myBut As Object
For Each myBut In ActiveSheet.Buttons
If myBut.Caption = "SheetCopy" Then myBut.Delete
Next
End Sub

No.1 ベストアンサー 回答者： Bloodhand#2 回答日時： 2014/10/13 10:44

最後の End subの直前にでも

Sheets("元本").Select
を挿入することで1は解決するでしょう。

でも2の方は再現できませんでしたのでわかりません。

この回答へのお礼

御回答をありがとうございました。
２　の方は色々試しましたがうまく行かないのであきらめました。

その対策として　Ctrl + c で対応することにしました。

お陰様で、
元本　をアクティブにするのは上手くできました。

お礼日時：2014/10/13 13:15

No.2 回答者： watabe007 回答日時： 2014/10/13 10:47

>「元本」シートがいつもアクティブになるようにしたいのですが。

エクセルの仕様でコピーされたシートがアクティブになりますので
コピー後、>「元本」シートをアクティブにすれば良いでしょう
>2 添付図のように最初にコピー・・・
こちらでは、そのような現象は確認できませんでした。
Sub SheetCopy()
　　Dim NewSheetName As String
　　Dim myBut As Object

　　NewSheetName = InputBox("一桁の月及び日でも二桁のMMDD形式で新しいシート名を入力してください")
　　Application.ScreenUpdating = False
　　Sheets("元本").Copy After:=Sheets(1)
　　With ActiveSheet
　　　　.Name = NewSheetName
　　　　.Range("A1").FormulaR1C1 = NewSheetName
　　　　.Range("A2").Select
　　　　For Each myBut In .Buttons
　　　　　　If myBut.Caption = "SheetCopy" Then myBut.Delete
　　　　Next
　　End With
　　Sheets("元本").Activate
　　Application.ScreenUpdating = True
End Sub

この回答へのお礼

御回答をありがとうございました。
２　の方は色々試しましたがうまく行かないのであきらめました。

その対策として　Ctrl + c で対応することにしました。

お陰様で、
元本　をアクティブにするのは上手くできました。

お礼日時：2014/10/13 13:17