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?