Got it....The WORKDAY function only counts actual workdays. However, it seems that you want to count actual days, including weekends, but not including holidays? Is that the rule?
EDITED:
I deleted my previous misguided effort because I think I figured out what you want.
This code begins with the reference date, adds 3, then finds the next workday after that.
Sub autotext()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim HolidayRange As Range
Dim dtMyDate As Date
Set ws1 = Sheets("Data")
Set ws2 = Sheets("Actual")
Set ws3 = Sheets("HolidaysList")
Set HolidayRange = Worksheets("HolidaysList").Range("A1:A13")
dtMyDate = WorksheetFunction.WorkDay(ws1.Range("B2") + 3, 1, HolidayRange)
ws2.Range("D1").Value = "Please send the file on " _
& Format(dtMyDate, "mm/dd/yyyy")
End Sub
Is that something you can work with?
Bookmarks