something wrong either with the site uploading service or Excel converter. Anyway the code that was changed is Entry Page code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CLsearch As Range
If Not Intersect(Target, Range("c2")) Is Nothing Then
With Application
.ScreenUpdating = 0
.EnableEvents = 0
Range("c3:c25").ClearContents
Set CLsearch = Sheets("Current List").UsedRange.Find(Target, , xlValues, xlWhole, , xlNext)
If Not CLsearch Is Nothing Then
CLsearch.Resize(, 24).Copy
Range("c2").PasteSpecial Paste:=xlPasteAll, Transpose:=True
End If
Range("c2").Select
.EnableEvents = 1
.ScreenUpdating = 1
End With
End If
End Sub
Bookmarks