Hi,

Where have I gone wrong?

ActiveSheet.Protect "sports"
Application.GetSaveAsFilename ( _
InitialFileName:= "C:\R2\Sports Return\" & Format(Now(),
"dd_mm_yy") & "_sportsreturn"
FileFilter = "Microsoft Excel Workbook (*.xls), *.xls")
End Sub

I know im nearly there but I cant get the end of the macro right!!!1

Please help


--
Cobbcouk
------------------------------------------------------------------------
Cobbcouk's Profile: http://www.excelforum.com/member.php...o&userid=32143
View this thread: http://www.excelforum.com/showthread...hreadid=531827