Hi Maria
do you really want an event procedure. Thís could also be achieved with
formulas (e.g. IF or VLOOKUP)
but you may try the following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
Select Case .Value
Case 1 'change this according to your needs
cells(1,2).value = "value1-1"
cells(2,2).value = "value1-2"
cells(3,2).value = "value1-3"
Case 2
cells(1,2).value = "value2-1"
cells(2,2).value = "value2-2"
cells(3,2).value = "value2-3"
Case 3
cells(1,2).value = "value3-1"
cells(2,2).value = "value3-2"
cells(3,2).value = "value3-3"
End Select
End With
CleanUp:
Application.EnableEvents = True
End Sub



--
Regards
Frank Kabel
Frankfurt, Germany

Maria wrote:
Hello:
I would appreciate help with the following:

Cell A1 has a dropdown list (Data, Validation feature) which allows
user to select from one of three choice.

Based on the value in cell A1, cells B1, B2, B3 have different
values. I have written a macro to enter those specific values in
cells B1:B3 based on the value in cell A1.

What kind of code do I need in the SelectionChange to be able to
populate B1:B3 with the correct values based on user selection in
cell A1

TIA