OK, so this is what I have done and it still is not working... I have to apologize, I really am not trying to waste anyone's time but I simply do not understand what I am doing wrong, like I said earlier, I am pretty new to InputBox and very new to Arrays in VBA... what am I doing wrong???
Private Sub SchoolNameComboBox_Change()
Dim SchoolNames As Variant
Dim SchoolDays As Variant
Dim i As Long
Dim MaxDate As Date
Dim ThisName As String
Dim NextAppDate As Date
Dim Weeks As Double
Sheets("Future Appointments").Select
ActiveSheet.Unprotect Password:=""
ThisName = SchoolNameComboBox
With Worksheets("Future Appointments")
SchoolNames = Intersect(.Range("A2").CurrentRegion, .Range("A:A"))
SchoolDays = Intersect(.Range("A2").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
ApptDateTextBox.Text = IIf(MaxDate = 0, "", MaxDate)
If WeeklyIntervalTextBox = "" Then
NextAppDate = MaxDate
Else
NextAppDate = DateAdd(MaxDate, ww, CLng(WeeklyIntervalTextBox))
End If
On Error Resume Next
Weeks = CLng(WeeklyIntervalTextBox.Text)
On Error GoTo 0
ApptDateTextBox.Text = IIf(MaxDate = 0, "", MaxDate + Weeks * 7)
End Sub
SamT - I really do appreciate your help and I am very good at finding errrors that others leeve in grammar and spelling but with coding, I do not do this for a living and am completely self taught with A LOT of help from all of you at VBAExpress, I couldn't do the things with Excel that I do without everyones help so thank you.