<div>
I don't think that line would produce an error. 
What error do you get? 
Can you upload the workbook in question?
</div>

<div>
can you post the complete code? 
 
there is no problem in the format 
 
 
if you run that line as seperae procedure like this 
 
sub test 
&nbsp; &nbsp; &nbsp; &nbsp; Sbody = &quot;Here is the expiration report as of &quot;&nbsp;&amp; Format(Now, &quot;yyyy/mm/dd&quot;) &amp;&nbsp;&quot; for &quot;&nbsp;&amp; rngSupervisor &amp;&nbsp;&quot; &nbsp; - &nbsp;Please Recertify ASAP &quot;&nbsp;&amp; vbNewLine 
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox Sbody 
end sub 
 
then you get no problem
</div>

<div>
Complete Sub 
Line 17 is the error 
<a href="https://filedb.experts-exchange.com/incoming/2016/09_w38/1116868/05.JPG" target="_blank" title="05.JPG (96 KB)"><img alt="05.JPG" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2016/09_w38/800_1116868/05.JPG" /></a>
<pre><code class="code-10 nolinks" id="code-20-41800134-1">Sub RunExpReport()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Don't forget to copy the function RangetoHTML in the module.
'Working in Excel 2000-2013
 Dim rng As Range
 Dim rngSupervisor As Range
 Dim DaysBefore As Long
 Dim TodayLong As Long
 Dim sBody As String
 Dim OutApp As Object
 Dim OutMail As Object

 TodayLong = Now
 DaysBefore = Range(&quot;DaysBeforeExp&quot;)


 For Each rngSupervisor In Range(&quot;tblSupervisor[Supervisor]&quot;)
 sBody = &quot;Here is the expiration report as of &quot; &amp; Format(Now, &quot;yyyy/mm/dd&quot;) &amp; &quot; for &quot; &amp; rngSupervisor &amp; &quot; - Please Recertify ASAP &quot; &amp; vbNewLine

 'Filter exp date table
 With Worksheets(&quot;ExpDate&quot;).ListObjects(&quot;TableExpDate&quot;).Range
 .AutoFilter Field:=3, Criteria1:=rngSupervisor
 .AutoFilter Field:=4, Criteria1:=&quot;&lt;=&quot; &amp; TodayLong + DaysBefore
 End With

 Set rng = Range(&quot;TableExpDate[#All]&quot;).SpecialCells(xlCellTypeVisible)
 If rng.Cells.Count &gt; Range(&quot;TableExpDate[#Headers]&quot;).Cells.Count Then
 Set OutApp = CreateObject(&quot;Outlook.Application&quot;)
 sBody = sBody &amp; vbNewLine &amp; RangetoHTML(rng)

 Set OutMail = OutApp.CreateItem(0)

 On Error Resume Next
 With OutMail
 .To = rngSupervisor.Offset(, 1)
 .CC = &quot;&quot;
 .BCC = &quot;&quot;
 .Subject = &quot;Expiration Date Report as of &quot; &amp; Format(Now, &quot;yyyy/mm/dd&quot;)
 .HTMLBody = sBody
 .display
 End With
 End If
 Next rngSupervisor

 Worksheets(&quot;ExpDate&quot;).ListObjects(&quot;TableExpDate&quot;).Range.AutoFilter
 Set OutMail = Nothing
 Set OutApp = Nothing
End Sub
</code></pre>
</div>

05.JPG

<div>
Roy was helping on this one, HE is away from his desk, need to get this one off my desk ASAP. 
Thanks guys 
Chris
</div>

06.JPG

<div>
you can replace Format with &nbsp;this &nbsp;VBA.Format$ 
 
but the best solutuon is to find what library is &quot;MISSING&quot; in the reference 
Have you checked for MISSING references under Tools&gt;References?
</div>

<div>
@JimJam 
I get this <a href="https://filedb.experts-exchange.com/incoming/2016/09_w38/1116876/07.JPG" target="_blank" title="07.JPG (50 KB)"><img alt="07.JPG" class="file-block lazyload" style="max-width: 516px;" data-src="https://filedb.experts-exchange.com/incoming/2016/09_w38/1116876/07.JPG" /></a>
</div>

07.JPG

<div>
Thanks guys, I have no idea about library's. 
Appreciate your help.
</div>

<div>
<div class="content wysiwyg-content">
I am getting an error on this line in my VBA 
 

<pre><code class="code-1 nolinks" id="code-10-28970097-1"> For Each rngSupervisor In Range(&quot;tblSupervisor[Supervisor]&quot;)
 sBody = &quot;Here is the expiration report as of &quot; &amp; Format(Now, &quot;yyyy/mm/dd&quot;) &amp; &quot; for &quot; &amp; rngSupervisor &amp; &quot; - Please Recertify ASAP &quot; &amp; vbNewLine
</code></pre>
 
the error that highlights is the &quot;FORMAT&quot; 
Any idea why? &nbsp;Thanks so much 
Chris
</div>
</div>

I am getting an error on this line in my VBA

(CODE)

the error that highlights is the "FORMAT"
Any idea why?  Thanks so much
Chris

Excel VB - format error

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.