' Add variable name to the beginning of variable labels ' If var names has less than 8 chars, fill it up with "_" ' Posted to spss newsgroup by Raynald Levesque on 2003/10/10 Option Explicit Sub Main() ' Declare variables and get the variable list: Dim objSpssInfo As ISpssInfo Dim var As String Set objSpssInfo = objSpssApp.SpssInfo Dim lngNumber As Long Dim i As Long Dim strCmd As String lngNumber = objSpssInfo.NumVariables strCmd = "VARIABLE LABELS " Debug.Clear With objSpssInfo For i = 0 To lngNumber - 1 var=Left(.VariableAt(i) & "_______" , 8) strCmd = strCmd & " " & .VariableAt(i) & " '" & var & .VariableLabelAt(i) & "'/" & vbCrLf Debug.Print strCmd Next End With strCmd = strCmd + "." & vbCrLf objSpssApp.ExecuteCommands strCmd, False Set objSpssInfo = Nothing End Sub