How do I write a procedure that would make the cell value the word "Studio"
if it is not a number (1 or 2 or 3 or 4 or 5)? It would be in the page's
Selection_Change because the cell can be written to from another form also.
Thank you in advance.

Jim Kobzeff

Are you sure you want it in the SelectionChange event? It seems
that the Change event would be more appropriate.

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Text) = False Then
Application.EnableEvents = False
Target.Value = "Studio"
Application.EnableEvents = True
End If
End Sub




--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"JK" wrote in message
news:uzx8e.35301$qO6.3052@trnddc05...
How do I write a procedure that would make the cell value the
word "Studio" if it is not a number (1 or 2 or 3 or 4 or 5)?
It would be in the page's Selection_Change because the cell can
be written to from another form also. Thank you in advance.

Jim Kobzeff