What about a Select Case instead :

Const ERR_MSG As String="Error - No match"

Select Case Range("D1").Offset(j, 0)
Case "FLGH7"
Fees = "1.20"
Commissions = "0.55"
Case "FLGM7"
Fees = "0.98"
Commissions = ...etc
'...........
Case Else 'no match
Fees = ERR_MSG
Commissions = ERR_MSG
End Select

NickHK

"Cammy" ...
I have this macro (see below) which calculates commissions and fees using
an
lot of If functions. Unfortunately the function seems to post a numberinto
the output columns a number even if the ticker (eg FLGH7) has not been
programmed into the macro. Is it possible to add to the macro some coding
which means the output will print 'ERROR' if the ticker in columns D is
not
recognised?



Dim i As Integer
Dim j As Integer
Dim NumberOfTrades As Integer
Dim Fees As String
Dim Commissions As String

Range("M1") = "Clearing and Exchange Fees"
Range("N1") = "Execution Commissions"

NumberOfTrades = Application.CountA(Columns(4)) - 1


For j = 1 To NumberOfTrades

If Range("D1").Offset(j, 0) = "FLGH7" Then
Fees = "1.20"
Commissions = "0.55"
End If

If Range("D1").Offset(j, 0) = "FLGM7" Then
Fees = "0.98"
Commissions = "0.54"
End If


Volume = Range("F1").Offset(j, 0)

Range("D1").Offset(j, 9).Value = Fees * Volume
Range("D1").Offset(j, 10).Value = Commissions * Volume

If Range("D1").Offset(j, 0) = "FLGU7" Then
Fees = "0.96"
Commissions = "0.53"
End If

Next j

Columns("M:M").EntireColumn.AutoFit
Columns("N:N").EntireColumn.AutoFit

End Sub