'begin description 'Purpose: Delete value labels of all variables.sbs. 'Requirement: must have data in data editor 'end description 'Written by Raynald Levesque on 2004/06/08 'SPSS site: http://pages.infinit.net/rlevesqu/index.htm Option Explicit Sub Main Dim objSpssInfo As ISpssInfo Dim i As Integer, j As Integer Dim strCmd As String Set objSpssInfo = objSpssApp.SpssInfo With objSpssInfo For i = 0 To .NumVariables - 1 If .NumberOfValueLabels(i) > 0 Then strCmd = strCmd & "VALUE LABELS " & .VariableAt(i) & "." & vbCrLf End If Next i End With objSpssApp.ExecuteCommands (strCmd, vbFalse) Set objSpssInfo = Nothing End Sub