Greetings:
I thought I had the following code working.
However, it is not copying and placing values in those cells that have
an actual formula in them (some also refer to a look-up chart).
Cells with no formulas are working properly.
The following code is run before any worksheet, row and column deletes are
done.
When I try a 'manual' copy/paste special, it works fine.
Help please.
Sub MakeText()
' Convert all Used Cells, on each Worksheet, to Text
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.UsedRange.Validation.Delete
ws.UsedRange.Copy
ws.UsedRange.PasteSpecial xlValues
Next
End Sub
|
Similar Threads
