Your technology certification is waiting. Enroll in Cloud Class ®
Private Sub Workbook_Open()
Set clsFastMatch = New FastMatch
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "ICD10codes" Then
If Intersect(Target, Application.Names("ICD10codes").RefersToRange) Is Nothing Then
Open in new window
Public clsFastMatch As FastMatch
Public Function FasterMatch(parmValue As String)
FasterMatch = clsFastMatch.GetMatch(parmValue)
Private dicMatches As Object
Private Sub Class_Initialize()
Set dicMatches = CreateObject("scripting.dictionary")
Private Sub Class_Terminate()
Set dicMatches = Nothing
Public Sub BuildDic(parmRange As Range)
Dim rng As Range
For Each rng In parmRange
dicMatches(rng.Value) = rng.Row
Public Function GetMatch(parmValue As String)
If dicMatches.exists(parmValue) Then
GetMatch = dicMatches(parmValue)
GetMatch = Null
The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.