Well that worked... sort of. It did change the extension from .xlsm to .xlsx and put the " - Mapping File" at the end but it did not rename the file with "Lake Michigan Region School List" before the " - Mapping File". It named it "Book1 - Mapping File". I am sure it has something to do with my code. Please see below... thank you for your reply. Sorry it took me so long to respond but when I went to reply yesterday I was locked out from posting new threads or replying because I changed my email address. Have a great day!
Dim fileName As String
fileName = ActiveWorkbook.Name
ActiveSheet.Unprotect Password:=""
Range("M6:M506,O6:O506,Q6:Q506,W6:AB506").SpecialCells(xlCellTypeVisible).Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingHyperlinks:=False, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs "S:\Recruiting Information\Field Recruiters\Area Books\Mapping Files\" & Split(.Name, ".xls")(0) & " - Mapping File.xlsx", FileFormat:=xlOpenXMLWorkbook
End With