[AccessD] (OT) Excel VBA question

sorry for posting excel question,
does anyone know how i can fix this so it would post required strings in
Column B for the same row ?
Oleg

Sub CheckFirst4chars()
Dim First4 As String
  Range("A1").EntireRow.Select
    Do While ActiveCell.Value <> " "
        If Left(ActiveCell.Value, 2) = "XX" Then
         'same cell coumn B = "XXXX"
        ElseIf Left(ActiveCell.Value, 2) = "YY" Then
         'same cell coumn B = "YYYY"
        End If
    Loop
 End Sub



-----------------------------------------
Get the BUZZ on your Friends, Relatives and Celebrities:
www.xuppa.com/buzz/?link=webmail