Trying to make a macro to copy paste as values all sheets in excel

[Bled]

Hello, hope someone can help. I used this code, for some reason nothing is happening

Sub Paste_Value()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible = True Then
Sh.Activate
Sh.Cells.Copy
Sh.Range("A1").PasteSpecial Paste:=xlValues
Sh.Range("A1").Select
End If

 

[Fluff]

Is that code in the workbook you want it to work on, or is it in a different workbook, eg a personal.xlsb file?

 

[Bled]

Is that code in the workbook you want it to work on, or is it in a different workbook, eg a personal.xlsb file?

Thanks for answering.
I created it in inside personal so it can work everywhere? No idea why isn't working

 

[Fluff]

Ok, in that case use

For Each Sh In ActiveWorkbook.Worksheets

otherwise it's looking at your personal.xlsb file.

 

[Bled]

Ok, in that case use

For Each Sh In ActiveWorkbook.Worksheets

otherwise it's looking at your personal.xlsb file.

Worked like perfectly, a million thanks you a life saver :D

 

[Fluff]

You're welcome & thanks for the feedback.