Option Explicit Sub Main FREQUENCIES_Syntax End Sub Sub FREQUENCIES_Syntax() 'Recode values using a loop Dim strDate As String Dim strCommand As String, strCst As String, count As Integer, intCst As Date For count=1 To 4 Let strDate = " '" & DateAdd("yyyy",count,#1/1/2000#)&"'" strCommand = "ADD VALUE LABELS var1 " &count & strDate objSpssApp.ExecuteCommands strCommand, True strCommand = "execute." objSpssApp.ExecuteCommands strCommand, True Next count End Sub