Sub Export_Values()
'
' Export_Values Macro
    Dim projectinfo As String
    Range("O1").Select
    projectinfo = ActiveCell.Value

    Columns("A:M").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = projectinfo

End Sub