実行時エラー1004

質問

下記マクロを実行するとＡ1に入力した文字に名前をつけて保存するような
マクロをつくりましたが

Ａ1に
「保存横一列」なら保存できますが
「保存（alt+エンター）
セルに２行」
というように（alt+エンター）を入れて複数行にすると
「実行時エラー1004」が出てしまいます。

「保存セルに2行」というように１列にして保存したいのですが
どのようにしたらいいのでしょうか？
よろしくお願いします。

Sub Macro1()

Dim name As String
name = Range("A1").Value

ChDir "C:\Documents and Settings\E-MACHINE\デスクトップ"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\E-MACHINE\デスクトップ\" & name & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

回答No.2

keithin · ベストアンサー

不要な改行コードとか除去してみます

変更前：
name = Range("A1").Value

変更後：
name = application.clean(Range("A1").Value)

＃余談
変数名には、nameなどマクロで既に使われている言葉は使ってはいけません。

お礼

ありがとうございます。
エラーなく実行できました。

回答No.1

Stiltzkin

状況から考えて、変数nameが文字列型で宣言されてるからじゃないのかな～、と思うのですが。
二行目を

Dim name As Variant

あたりにするか、あるいは型を宣言しないかでやってみて、実行時エラーが出ないのであればそれでよいことにしましょう...。

お礼

回答ありがとうございます。
ですが、これでもやはりエラーとなってしまうようです。