title: Add Sheet Name as Date and Increment date every run
body: <p>I use an Excel macro to add sheet name as date. It works.</p>
  
  <p>I want to make it increment on a daily basis.</p>
  
  <p>For example today on 28-09-2018 I click on the button to add a sheet. The next day when I click the button it should add a sheet with the name of 29-09-2018 without getting value from the cell reference.</p>
  
  <pre><code>Sub datesheets()
  Dim i As Integer
  i = 1
  
  For Each w In Worksheets
      If w.Name = "26.09.2018" Then
          found = True
          Workbook.Sheets.Add(, ActiveSheet).Name = "26.09.2018" + i
      End If
  Next
  If found = False Then
          Worksheets.Add(, ActiveSheet).Name = "26.09.2018"
  End If
  
  End Sub
  </code></pre>