Problema con rutina xyz a dxf

[sers_demon]

buenas, lo que pasa es que con esta aplicacion deseo subir puntos, y el programa es una maravilla.. pero al tratar de pas

ar los puntos a autocad me salta el mensaje ''error 1004'' y me dice que no encuentra la ruta de acceso...

y esto es lo que me muestra el depurador

Sub Macro1()

'

' Macro1 Macro

' Macro grabada el 20/11/00 por jhr

'

'

MsgBox "Asegurese de que todos los puntos tienen codido, y que no hay ninguna fila en blanco. No elimine ni filas ni columnas, elimine el contenido de estas si es necesario."

MsgBox "Se crearan dos archivos en el directorio raiz C:\ ;un fichero con extension 'dxf' y otro con extension 'xls', ambos con el mismo nombre que aparece en la casilla 'Nombre del Fichero', y despues se cerrara la aplicación. Los camibios quedarán guardados en el fichero excel creado en c:\"

ActiveWorkbook.SaveAs Filename:="C:" & Sheets("OPCIONES").Range("A2").Text & "homero.xls"

Sheets("DXF").Visible = True

Sheets("TEMP").Visible = True

Sheets("COORDENADAS").Select

f = Range("F2").Value

Sheets("TEMP").Select

Range("A2:BH2").Select

Selection.Copy

Range("A3:BH" & f).Select

ActiveSheet.Paste

Sheets("COORDENADAS").Select

f = Range("F2").Value

For i = 1 To f

x = 5 + (i * 60) - 60

Sheets("TEMP").Select

Range("A" & i, "BH" & i).Select

Selection.Copy

Sheets("DXF").Select

Range("A" & x).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

Next i

Sheets("TEMP").Select

Range("A2:BH" & f).Select

Selection.ClearContents

Range("A1").Select

Sheets("DXF").Select

ActiveCell.SpecialCells(xlLastCell).Select

Range("B1:B4").Select

Range("B4").Activate

Application.CutCopyMode = False

Selection.Cut

Range("A4").Select

Selection.End(xlDown).Select

x = 5 + (f * 60)

Range("A" & x).Select

ActiveSheet.Paste

Range("A1").Select

ChDir "C:\"

ActiveWorkbook.SaveAs Filename:="C:\" & Sheets("OPCIONES").Range("A2").Text & ".dxf", FileFormat:=xlText, _

CreateBackup:=False

ActiveWindow.SelectedSheets.Visible = False

Sheets("TEMP").Select

ActiveWindow.SelectedSheets.Visible = False

ThisWorkbook.Saved = True

ThisWorkbook.Close

End Sub