Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim ans As Long
Select Case Sh.Name
Case "Programme"
If Not Intersect(Target, Range("G5:G350")) Is Nothing Then
Range("G10").Activate
ans = MsgBox("Now please fill in Component information", _
vbYesNo + vbInformation, "Next Step!")
If ans = vbYes Then Worksheets("Components").Activate
End If
End Sub

--
HTH

Bob Phillips

(replace xxxx in email address with googlemail if mailing direct)

"SamuelT" <SamuelT.28bdgc_1148477703.0574@excelforum-nospam.com> wrote in
message news:SamuelT.28bdgc_1148477703.0574@excelforum-nospam.com...
>
> Hi Bob,
>
> Thanks for that. Unfortunately, it doesn't seem to be working. I've
> copied and pasted the code in and the following (red) sections seem to
> be problem areas.
>
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Range)
> Dim ans As Long
> Select Case Sh.Name
> Case "Programme"
> If Not Intersect(Target, Range("G5:G350")) Is Nothing Then
> Range("G10").Activate
> ans = MsgBox "Now please fill in Component information", _
> vbYesNo + vbInformation, "Next Step!"
> If ans = vbYes Then Worksheets("Components").Activate
> End If
>
> End Select
> End Sub
>
> Any ideas?
>
> Thanks,
>
> SamuelT
>
>
> --
> SamuelT
> ------------------------------------------------------------------------
> SamuelT's Profile:
http://www.excelforum.com/member.php...o&userid=27501
> View this thread: http://www.excelforum.com/showthread...hreadid=545056
>