title: VBA, Find highest value in a column (C) and return its value and the adjacent cells value
body: <p><a href="https://i.stack.imgur.com/ZipgM.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/ZipgM.png" alt="Image of my spreadsheet"></a></p>
  
  <p>I'm working on an assignment that requires the solution use VBA, so I can't use indexing or other options on the worksheet page... I've looked all over for an answer, maybe I'm just asking the question incorrectly.</p>
  
  <p>In column K there are ticker symbols, i.e. A, ABM, etc.
  In column L there is an number (I've been classifying as Long)</p>
  
  <p>I want to put the highest number in column L in <code>Range("O2")</code> and the tag that is one column to the left in <code>Range("N2")</code>.</p>
  
  <p>I've found numerous ways to identify the high number in column L, but can not figure out how to return the adjacent cells value...</p>
  
  <p>Here is the most recent code that I've been trying which is not working. When I remove the tag references the code runs fine, but I need the adjacent value too.</p>
  
  <p>Thanks</p>
  
  <pre><code>Sub attempt38()
  
  Dim sheet As Worksheet
  Dim i As Long
  Dim firstRow As Integer
  Dim columnNumber As Integer
  Dim max As Long
  Dim tag As Long
  
  firstRow = 2
  columnNumber = 12
  
  Set sheet = ActiveSheet
  
  If sheet.UsedRange.Rows.Count &lt;= 1 Then max = 0 Else max = sheet.Cells(2, 12)
  
  For i = firstRow To 300
      If sheet.Cells(i, 12) &gt; max Then max = sheet.Cells(i, 12) &amp; (tag = sheet.Cells(i, 11))
  
  Next
  
  sheet.Cells(3, 14) = max
  sheet.Cells(4, 14).Value = tag
  
  End Sub
  </code></pre>