Public Sub Test()
Dim A As String
Dim D As String
Dim E As String
Dim vSplit As Variant
A = "247, 300"
vSplit = Split(A, ",")
If UBound(vSplit) = 1 Then
D = vSplit(0)
E = vSplit(1)
Else
D = A
End If
MsgBox "D=" & D & " " & "E=" & E
End Sub
Maybe this:
Code:Public Sub Test() Dim A As String Dim D As String Dim E As String Dim vSplit As Variant A = "247, 300" vSplit = Split(A, ",") If UBound(vSplit) = 1 Then D = vSplit(0) E = vSplit(1) Else D = A End If MsgBox "D=" & D & " " & "E=" & E End Sub
Gary
Gary nice little code.
Biz