S
sharon_hutchison
I'd like to write a macro that goes to each sheet in turn, selects all
cells and paste special values. I've got his far but it only seems to
work for the active sheet:
Sub removelinks()
Dim wks As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook
For Each wks In wb.Worksheets
Cells.Select
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
Next
End Sub
Any help appreciated....thanks
cells and paste special values. I've got his far but it only seems to
work for the active sheet:
Sub removelinks()
Dim wks As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook
For Each wks In wb.Worksheets
Cells.Select
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
Next
End Sub
Any help appreciated....thanks