When running this It should look for StrName, Then Go 1 box over
(Column b) and Return the data in that cell to FormLoad.TxtRatRecd3
However it Just Stays Blank, any idea why?


Private Function TPRLoad(StrName As String)
FormLoad.TxtCaseName3 = StrName
Dim C As Range
FormLoad.LblName = " TPR Sheet "
FormLoad.MultiPage1.Value = 2

Set C = Range("A6:AX4500").Find(FormLoad.TxtCaseName3,
LookIn:=xlValues)
If Not C Is Nothing Then
FormLoad.TxtRatRecd3 = C.Offset(0, 1)
End If
End Function

Here is the code Used to Call the Function

Private Sub Found(StrNameFound As String)
Dim sh As Worksheet
Set sh = ActiveSheet
If sh.Name = "Shelter" Then
ShelterLoad (StrNameFound)
ElseIf sh.Name = "Dependency" Then
DependencyLoad (StrNameFound)
ElseIf sh.Name = "TPR" Then
TPRLoad (StrNameFound)
End If
End Sub