I can use the saveas filename to make the file be saved to a sharepoint document area but we get an error first and if I ok it then we get the document information fields to fill in and then I click retry saving document and it continues successfull. Is there a way to add those Doc fields to the save as to avoid getting the warning error. What is the best way to accomplish this? thanks for your help. -Shelly
InsName = Application.InputBox("Enter the Instructor Name (example Camwe,Jarry)", Type:=2)
CrsName = Application.InputBox("Enter the Course Name (example PHI)", Type:=2)
NumSect = Application.InputBox("Enter the File Name (example 111 W05)", Type:=2)
ActiveDocument.ContentTypeProperties("Instructor Name").Value = InsName
ActiveDocument.ContentTypeProperties("Course Name").Value = CrsName
ActiveDocument.ContentTypeProperties("Course Prefix, Number, and Section").Value = NumSect
ActiveWorkbook.SaveAs Filename:= _
"https://.....Shared Documents/" & FName & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
InsName = Application.InputBox("Enter the Instructor Name (example Camwe,Jarry)", Type:=2)
CrsName = Application.InputBox("Enter the Course Name (example PHI)", Type:=2)
NumSect = Application.InputBox("Enter the File Name (example 111 W05)", Type:=2)
ActiveDocument.ContentTypeProperties("Instructor Name").Value = InsName
ActiveDocument.ContentTypeProperties("Course Name").Value = CrsName
ActiveDocument.ContentTypeProperties("Course Prefix, Number, and Section").Value = NumSect
ActiveWorkbook.SaveAs Filename:= _
"https://.....Shared Documents/" & FName & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False