intNoOfFiles = CountFilesInFolder("N:\Letters\", "*.pdf")
stsingplur = "is,are,file,files,has,have"
If intNoOfFiles = 1 Then
stsingplur = Split(stsingplur, ",")(0) & "," & Split(stsingplur, ",")(2) & "," & Split(stsingplur, ",")(4)
Else
stsingplur = Split(stsingplur, ",")(1) & "," & Split(stsingplur, ",")(3) & "," & Split(stsingplur, ",")(5)
End If
stMessage = "There " & Split(stsingplur, ",")(0) & " <b>" & intNoOfFiles & _
"</b> " & Split(stsingplur, ",")(1) & " waiting to be reviewed and signed.<br><br> " & _
"After signing:<br><br>" & _