Sub ordinate()
varFname = Application.GetSaveAsFilename(ThisWorkbook.Name, _
"Excel Files (*.xls),*.xls")
ActiveWorkbook.SaveAs Filename:=varFname
End Sub

--
Gary''s Student - gsnu200750