Thanks folks. Got it working with the following


Code:
--------------------

Sub test3()
Sheets("Sheet1").Select
FinalRow = Cells(65536, 1).End(xlUp).Row
For i = 3 To FinalRow
CommServerMap = Cells(i, 7).Value
CurrentClass = Cells(i, 29).Value
MfgDate = Cells(i, 34).Value
InstallDate = Cells(i, 35).Value

Select Case CommServerMap
Case "IPU Server"
IPU = True
Case Else
IPU = False
End Select

If IPU Then
Cells(i, 32).Value = "N/A"
Else
Select Case CurrentClass
Case "A1s", "A2s", "A3s", "HOA1s", "HOA2s", "HOA3s", "SOA1s", "SOA2s", "SOA3s", "SOI1s", "SOI2s", "SOI3s"
Cells(i, 32).Value = "4YOS"

Case "Not in HP scope", "Out of production", "Pending", "NBA1", "NBA2", "NBI1", "NBI2", "I1", "I2", "I3"
Cells(i, 32).Value = "N/A"

Case "A1", "A2", "A3", "HOA1", "HOA2", "HOA3", "SOA1", "SOA2", "SOA3", "SOI1", "SOI2", "SOI3"
If MfgDate 38139 Then
Cells(i, 32).Value = "New"
Else
Cells(i, 32).Value = "Old"
End If
End Select ' ends select current class

End If 'is server an IPU server
Next i

MsgBox "Classification have been applied"

End Sub




--------------------


--
okelly
------------------------------------------------------------------------
okelly's Profile: http://www.excelforum.com/member.php...o&userid=36708
View this thread: http://www.excelforum.com/showthread...hreadid=568781