right click sheet tabview codecopy/paste this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
Target.Offset(, -1) = Target.Row

End Sub

--
Don Guillett
SalesAid Software

"SITCFanTN" wrote in message
...
Is there a simple macro to add a row number in col A if there is text in
Col
B. I've searched this site but haven't found anything similar? Thanks
for
your help.