Nice Ken i like it, not alot of code for a good result.

In the UK where i live addresses are set up a little different, more like...

Name, Road, Town, County, Postcode

Name
Road
Town
County
Postcode

I have used something like this in the past...

[vba]Sub Add()
Dim AddR As String
Dim NameR As String, NumStreet As String, Town As String
Dim County As String, PstCode As String
Dim Rest1 As String, Rest2 As String, Rest3 As String

AddR = Range("A1").Value

NameR = Left(AddR, InStr(AddR, ",") - 1)
Rest1 = Right(AddR, Len(AddR) - InStr(AddR, ",") - 1)
NumStreet = Left(Rest1, InStr(Rest1, ",") - 1)
Rest2 = Right(Rest1, Len(Rest1) - InStr(Rest1, ",") - 1)
Town = Left(Rest2, InStr(Rest2, ",") - 1)
Rest3 = Right(Rest2, Len(Rest2) - InStr(Rest2, ",") - 1)
County = Left(Rest3, InStr(Rest3, ",") - 1)
PstCode = Right(Rest3, Len(Rest3) - InStr(Rest3, ",") - 1)

MsgBox NameR & vbNewLine & NumStreet & vbNewLine & Town & _
vbNewLine & County & vbNewLine & PstCode
End Sub[/vba]
Just thought i would add for info although Ken's solution to this address issue is more suited for you