If
FetchData(Typename:=Trim$(rngTypeD.Text), _
DataType:=Trim$(rngTypeD.Offset(, 1).Text), _
Year:=Trim$(rngYearD.Text), _
DateCell:=rngCellS, _
ErrNumber:=lngErrNum, _
ErrDescription:=strErrDescr) _
Then
rngCellD.Formula =
"="
& rngCellS.Address(External:=
True
)