<div>
Thanks for looking!! 
 
This is the answer 
 
Sheets(&quot;CONV10&quot;).Range(&quot;z28:z57&quot;) = Range(&quot;p20&quot;) &amp;&nbsp;0 &amp;&nbsp;Format(Date, &quot;yy&quot;) + 1
</div>

Thanks for looking!!

This is the answer

Sheets("CONV10").Range("z28:z57") = Range("p20") & 0 & Format(Date, "yy") + 1

<div>
<div class="content wysiwyg-content">
I have this code, I need to format P20 to read &quot;108&quot; not &quot;107&quot; 
I am getting &quot;18&quot; 
 
 
Any help would greatly be appreciated. 
This First one is what I had and it gave &quot;107&quot; but I need to read &quot;108&quot; 
'/////////////////////////////////////////////////////// 
ElseIf Range(&quot;P20&quot;) = 1 Then 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = &quot;&nbsp;&quot; 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = Range(&quot;p20&quot;) &amp;&nbsp;Format(Date, &quot;yy&quot;) 
ElseIf Range(&quot;P20&quot;) = 2 Then 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = &quot;&nbsp;&quot; 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = Range(&quot;p20&quot;) &amp;&nbsp;Format(Date, &quot;yy&quot;) 
 
'/////////////////////////////////////////////////////// 
So I tried 
'///////////////////////////////////////////////////////////////////// 
ElseIf Range(&quot;P20&quot;) = 1 Then 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = &quot;&nbsp;&quot; 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = Range(&quot;p20&quot;) &amp;&nbsp;(Format(Date, &quot;yy&quot;) + 1) 
ElseIf Range(&quot;P20&quot;) = 2 Then 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = &quot;&nbsp;&quot; 
&nbsp; &nbsp; Sheets(&quot;GN15&quot;).Range(&quot;z28:z32&quot;) = Range(&quot;p20&quot;) &amp;&nbsp;Format(Date, &quot;yy&quot;) + 1)
</div>
</div>

I have this code, I need to format P20 to read "108" not "107"
I am getting "18"


Any help would greatly be appreciated. 
This First one is what I had and it gave "107" but I need to read "108"
'///////////////////////////////////////////////////////
ElseIf Range("P20") = 1 Then
    Sheets("GN15").Range("z28:z32") = " "
    Sheets("GN15").Range("z28:z32") = Range("p20") & Format(Date, "yy")
ElseIf Range("P20") = 2 Then
    Sheets("GN15").Range("z28:z32") = " "
    Sheets("GN15").Range("z28:z32") = Range("p20") & Format(Date, "yy")

'///////////////////////////////////////////////////////
So I tried
'/////////////////////////////////////////////////////////////////////
ElseIf Range("P20") = 1 Then
    Sheets("GN15").Range("z28:z32") = " "
    Sheets("GN15").Range("z28:z32") = Range("p20") & (Format(Date, "yy") + 1)
ElseIf Range("P20") = 2 Then
    Sheets("GN15").Range("z28:z32") = " "
    Sheets("GN15").Range("z28:z32") = Range("p20") & Format(Date, "yy") + 1)

Excel VBA Format Date, &quot;yy&quot;

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Excel VBA Format Date, &quot;yy&quot;

Excel VBA Format Date, "yy"