It looks like you are after this structure (note the ElseIf statement)...

Sub Special_Terms()
If AH13 = AH6 Then
Call Special_Terms_Lunda
ElseIf AH13 = AH7 Then
Call Special_Terms_Ames
Else
Call Delete_Special_Terms
End If
End Sub

--
Rick (MVP - Excel)


"Homer" wrote in message
...
Sub Special_Terms()
If AH13 = AH6 Then
Call Special_Terms_Lunda
If AH13 = AH7 Then
Call Special_Terms_Ames
Else
Call Delete_Special_Terms
End If
End If
End Sub