title: How can I get today's date in a cell in dd/mm/yyyy format?
body: <p>I want to put today's date (4 November 2018) into a cell in this (<code>dd/mm/yyyy</code>) format:</p>
  
  <pre><code>    04/11/2018
  </code></pre>
  
  <p>However every attempt so far leads to (<code>mm/dd/yyyy</code> format):</p>
  
  <pre><code>    11/04/2018
  </code></pre>
  
  <p>Original code is:</p>
  
  <pre><code>    Dim sToday As String
      sToday = Date
      Cells(nCurrentRow, nCurrentColumn) = sToday
  </code></pre>
  
  <p>What I have tried includes:</p>
  
  <pre><code>    Cells(nCurrentRow, nCurrentColumn).Value = sToday
  </code></pre>
  
  <p>and:</p>
  
  <pre><code>    Cells(nCurrentRow, nCurrentColumn).Select
      Selection.NumberFormat = "dd/mm/yyyy;@"
  </code></pre>
  
  <p>and:</p>
  
  <pre><code>    sToday = Format(Date, "dd-mm-yyyy")
  </code></pre>
  
  <p>When I output the string in a message box, it always appears in the desired format: <code>04/11/2018</code></p>
  
  <p>Even when I post the date as a plain string in the correct format <code>04/11/2018</code> the format still changes!</p>
  
  <p>Windows 10 regional settings are as I require  (UK date format).</p>
  
  <p>The cell format is also set to <code>dd/mm/yyyy</code>.</p>