Hi!


This seem to do the loop with end save OK, but all cell which before had numbers, now screem "#VALUE!" at me.

What went wrong???


Quote Originally Posted by GTO
Greetings,

Rather than copying/pastespecial, you might want to try something like:
Option Explicit
    
Sub exa()
Dim wbNew As Workbook
Dim wks As Worksheet
    
    Set wbNew = Workbooks.Add(xlWBATWorksheet)
    
    ThisWorkbook.Worksheets.Copy After:=wbNew.Worksheets(1)
    Application.DisplayAlerts = False
    wbNew.Worksheets(1).Delete
    Application.DisplayAlerts = True
    
    For Each wks In wbNew.Worksheets
        wks.UsedRange.Value = wks.UsedRange.Value
    Next
    
End Sub
Hope that helps,

Mark