Thanks for the reply bob, as you can see i am yet modifying that bleedi
program ( i got the spot change to work in workbook selection with th
advent of numbercell in the code u have) well, i have tried th
worksheet selection change with the code for the dialog sheet i hav
created, it compiles ok but does nothing on selection of a cell in th
range!
Heres the code!
Simon
Private Sub Worksheet_SheetSelectionChange(ByVal sh As Object, ByVa
Target As Range)
Dim myrange As Range
'
Dim I1 As Integer
Dim res As Variant
Dim arySheets
If sh.Name = ("Hidden") Or ("dialog1") Then
Exit Sub
Set myrange = sh.Range("E3:H641")
If Not Intersect(myrange, Target) Is Nothing Then
Sheets("Alpha Packing").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
arySheets = Array("Alpha Packing", "Alpha Process", "Bulk
H&I", _
"Corn Process", "33 Bldg Packing", "Ctd Cor
Packing", _
"2 & 3 Coating", "Crispix", "Feed"
"Flavour", _
"Jet Zones", "Manpower Tasks", "MPD", "Plan
Awareness", _
"Rice Cooking", "Vehicle Drivers (plant)"
"VIP", _
"15-21 & 22", "4&5 Coating", "Tank Floor 15
33 Bldg")
Sheets(arySheets).Select
Sheets("Alpha Packing").Activate
t1 = DialogSheets("Ref:E-mail") 'InputBox("Only Valid Skil
Titles Will Be Allowed!", "Skill Addition Box", "")
End If
If dropdown4.Value = "Ref:E-mail" Then
MsgBox "send email to training"
With Worksheets("Hidden")
res = Application.Match(t1, .Range(.Range("A2"), _
.Range("A2").End(xlDown)), 0)
End With
End If
If Not IsError(res) Then
ActiveCell
DialogSheets.Application.Dialogs("dropdown4").Show
Range("A" & ActiveCell.Row).Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Alpha Packing").Select
Exit Sub
Worksheets("hidden").Visible = False
DialogSheets("Dialog1").Visible = False
End If
I1 = MsgBox("Please try again " & vbCrLf & _
"Skill " & " Entry not recognised " & _
"Please Contact Training Dept to Add Skil
Title!!")
If ActiveCell < "shift " Then
Range("A" & ActiveCell.Row).Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Alpha Packing").Select
End If
End If
End Su
--
Message posted from
http://www.ExcelForum.com