シート及びファイル名の付け方 その２

質問

何となく説明不足かと思い変更させていただきました。

Windows XP EXCELL2003です。
いつもお世話になります。
すでに下記でご指導いただきました。
http://oshiete1.goo.ne.jp/qa5331087.html

ご教授を仰ぎたいのは
　マクロを実行
した時この場合は
　　アクティブにしているシートに名前がつきます。
　　※例えば　シート名　「納請書１」(図の上側)

これをアクティブなシートに関係なく、シート「FUKU」に
名前が　(図の下側　赤い矢印)　に付くようにしたいのですがご教授いただけないでしょうか。

マクロ　下記を参考に
Option Explicit
Sub Auto_Save()
ActiveSheet.Name = Range("A4").Value
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("A4").Value
End Sub

よろしく御願いします。

回答No.1

hige_082 · ベストアンサー

http://okwave.jp/qa5337026.html
とほぼ同じ質問ではないのか？
この様な質問の仕方は禁止（禁止事項ガイドラインで）されているはず

worksheets("FUKU").name = target.value

お礼

このような質問をしたのは悪意はなかったのです。
前の質問が何となく説明不足を感じより分かりやすくとマクロが違っていたので再度質問するような形になり深く反省しています。

誠にご指導いただき有難うございました。
私が思う通りにできました。