macro to flatten worksheets?

[bluepenink]

Hello

I have a workbook with over 30 worksheets; i dont want to individually paste special > values for all......is there a macro that can be provided? i appreciate it. thank you.

 

[GlennUK]

For Each wks In Worksheets
wks.UsedRange.Value = wks.UsedRange.Value
Next

 

[bluepenink]

hello

my copy/paste special range is A1:X200 and that can be applied to all worksheets....im very new with excel so can you kindly assist me further? thxs

 

[njimack]

Sub Flatten()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
    With ws.UsedRange
        .Copy
        .PasteSpecial xlValues
    End With
    
Next ws

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

 

[GlennUK]

hello

my copy/paste special range is A1:X200 and that can be applied to all worksheets....im very new with excel so can you kindly assist me further? thxs

My code will work perfectly well ... did you even try it?