Quote Originally Posted by royUK View Post
Is this what you mean?
Option Explicit

Sub CopyValues()
'copy sheet to new workbook
    ActiveSheet.Copy
    'convert to values
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
End Sub
This was what i looking for.thanks a lot. have a nice day.