Use a Select Case statement instead (Psuedo code)

Select Case Cells(p, "D").Value
Case Is = 'Conditions here
'More Case Statements
Case Else
End Select

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"smart.daisy" wrote in message
...
I used belowed VB code IF to automate fill in 11 columns:

If Cells(p, "D").Value = DateValue("01/01/2005") Then
a = Cells(p, "H").Value
b = Cells(p, "A").Value
............

The first ten work pretty well, but the last one, 11 one fails. Is it the
reason that IF in VB only allows ten variance? Thanks.