Protection with excel

[jeff]

Hi,

Something like this may help. hook up to commandbutton1
on your form.

jeff

Private Sub CommandButton1_Click()
getnamesave
End Sub

Sub getnamesave()
Do
fName = Application.GetSaveAsFilename
(fileFilter:="Text Files (*.xls), *.xls")
Loop Until fName <> False
Worksheets("Sheet1").Range("A1") = fName
ActiveWorkbook.SaveAs Filename:=fName
End Sub

 

[Dave Peterson]

It sounds like you pasted Jeff's code into your project at least 2 times.