Microsoft recommends not saving directly to a floppy. So possibly you could
save to the hard drive, copy to the floppy, delete the file on the hard
drive.

--
Regards,
Tom Ogilvy

Jim wrote in message
...
I have been using this macro to save to a floppy in Excel 95 for some
years
very successfully.
Now I am running Excel2000 and the floppy seems to run and run but not
save.
Any ideas
Help appreciated
Jim

Sub SavetoFloppy() 'Saves to floppy only
Dim CurPath As String
CurPath = "c:\msoffice\excel\mats\Takings"

Application.ScreenUpdating = False
If MsgBox("Put a Floppy Disk in Drive A" & Chr(13) _
& "and then press OK", 49, "Masons Arms - Save to Floppy") _
= vbCancel Then Exit Sub

On Error Resume Next

Application.DisplayAlerts = False

ChDrive "A"
ActiveWorkbook.SaveCopyAs "A:\" & ActiveWorkbook.Name
ChDrive Left(CurPath, 1)
If Err Then
MsgBox "There is a problem with this Transfer, Try again", 49,
"Masons
Arms - WARNING"
Exit Sub
Else
MsgBox "Wait until Green Light has gone out" & Chr(13) _
& "Press OK and then remove Disk", 64, "Masons Arms - Transfer
Finished"
On Error GoTo 0
Application.ScreenUpdating = True
End If
End Sub