If by 'labels' you mean any text, then this will do it
Sub tryme()
For Each mycell In Application.ActiveSheet.UsedRange
If Application.WorksheetFunction.IsText(mycell) Then
mycell.Clear
End If
Next
End Sub
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email
"Lynn" wrote in message
...
hi,
anyone has a macro to delete all labels in a spreadsheet?