'Define Missing values for all numerics 'From: Rafael Osorio (usenet Fri, 25 Feb 2000) Sub Main Dim i As Integer Dim info As ISpssInfo Set info = objSpssApp.SpssInfo For i = 0 To Info.NumVariables - 1 If Info.VarType(i) = 0 Then objSpssApp.ExecuteCommands "MISSING VALUES " &Info.VariableAt(i) &" (-8,-9)." , False End If Next End Sub