On Wed, 23 Jul 2008 02:47:01 -0700, Mike H
wrote:

Thanks Mike, That did it.

Why didn't I see that myself !!

Cheers - Kirk

You could use the selection_change event

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = Target.Text
End Sub


Mike