Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Not Intersect(Targte, Range("G5:G350")) Is Nothing Then
If sh.Name = "Programme" Then
MsgBox "Now please fill in Component information"
End If
End If
End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"SamuelT" wrote in
message ...

Hi all,

I have the following piece of script that brings up a prompt when
someone fills in a particular cell (in this case G10):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Select Case Sh.Name
Case "Programme"
Select Case Target.Address(0, 0)
Case "G10"
Range("G10").Activate
MsgBox "Now please fill in Component information"

End Select

End Select
End Sub

I want cells G5:G350 to behave in the same way, but when I change the
line:

Case "G10"

to

Case "G5:G350"

the script stops working. Can anyone suggest what I'm doing wrong and
how I might rectify this problem?

TIA,

SamuelT


--
SamuelT
------------------------------------------------------------------------
SamuelT's Profile:
http://www.excelforum.com/member.php...o&userid=27501
View this thread: http://www.excelforum.com/showthread...hreadid=545027