UserForm to Return the MAX date in a TextBox resulting from VLOOKUP in ComboBox

[infinity]

p45cal,

I made the changes and now I am no loner getting the errors but it also is not pulling in any date in the ApptDateTextBox. I am posting all of the code I have so far. I have this entered in the UserForms SchoolNameComboBox_Change Event, is that correct?

Private Sub SchoolNameComboBox_Change()
Dim SchoolNames  As Variant
Dim SchoolDays As Variant
Dim i As Long
Dim MaxDate As Date
Dim ThisName As String
ThisName = SchoolNameComboBox
With Worksheets("Future Appointments")
      SchoolNames = Intersect(.Range("A2").CurrentRegion, .Range("A:A"))
      SchoolDays = Intersect(.Range("F2").CurrentRegion, .Range("F:F"))  'Edit to fit
End With
For i = LBound(SchoolNames) + 1 To UBound(SchoolNames) '+1 to skip headers
      If SchoolNames(i, 1) = ThisName Then MaxDate = Application.Max(MaxDate, SchoolDays(i, 1))
Next i
'If MaxDate = 0 then No Match found
End Sub

Thank you for your help!