SeaBream HARUKA blog

NISSAN JOY FRIEND-20EX 鹿児島 錦江湾 船フカセでクロ釣りが主体です

お助けを・・_(._.)_ 他力本願とも言う^^;

以前、Excel2003で作った「入出金伝票」というファイル上に、ワンクリックでデスクトップに、「作業用入出金伝票」という名前のファイルを作成して、「入出金伝票」自体は上書きせずに終了するというMacro(下記参照)を書いていただきました。(わたし自身はMacro君なんて皆目判ってません^^;)

最近ふと気がつくと、このマクロが正常に動作しなくなっており、仕方がないので、その都度「別名で保存」で凌いでおります。

眺め回してはおりますが解決するはずもなく、作成していただいた奇特な御仁とは連絡も取れず途方に暮れております。

ヒントだけとは言わず・・スッキリと解決していただける御仁はいらっしゃいませんでしょうか(^_^;)
他力本願では御座いますが宜しくお願い奉り候であります・・m(_ _)m<(_ _)>_(._.)_

Private Sub ToggleButton1_Click()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Seabream\デスクトップ\作業用入出金伝票.xls", FileFormat:=
xlNormal , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Quit
End Sub