title: Extracting numerical cell based on color to another sheet
body: <p>If the number is Light-blue Id like to extract the value with the name (column A is the name) to another sheet.</p>
  
  <p>So far I have a working formula that extracts the numerical value. I'm just having trouble extracting the number and name to another sheet, which is the second formula that I have listed. I'd also like to learn what each line of code does. 
  Anything is appreciated, thanks for your help</p>
  
  <pre><code>Function GetColorNum(prange As Range) As Double
   Dim xOut As Double
   Dim i As Long
  
   For i = 1 To 100
  
      If prange.Cells.Font.ColorIndex = 33 Then
      xOut = prange.Value
  
      End If
  
  Next
  GetColorNum = xOut
  
  End Function
  
  
  Sub tickerextract()
  Dim c As Range
  Dim ticker As String
  
      If GetColorNum = True Then
          Cells(i, 1).EntireRow.Copy
              c.offset(0, 1) = ticker
  
  Next c
  
  End Sub
  </code></pre>