Hi,
Thanks for you help, xld. I didn't explain my problem well enough here, sorry for that.
I have found a solution and thought I'd post it for the rest of the community, many thanks to koolsid for the code, who operates on another VB forum:
Sub ValuesToString()
Application.ScreenUpdating = False
Dim dataSheet As Worksheet
Dim dataCell As Range
For Each dataSheet In ActiveWorkbook.Sheets
'Selects all cells in a worksheet
dataSheet.Cells.Copy
'Paste the copied cells as values instead of formulas
dataSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
dataSheet.Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next dataSheet
'Loops through all sheets in a workbork
For Each dataSheet In ActiveWorkbook.Sheets
'the variable dataSheet now refers to a particular sheet in ActiveWorkbook
For Each dataCell In dataSheet.UsedRange.Cells
'Converts values in cells to text string
dataCell.Cells(1).Value = dataCell.Cells(1).Text
Next dataCell
Next dataSheet
Application.ScreenUpdating = True
End Sub
I'm sure I'll be back soon with problems, being a n000b and all.
~Chipley