Comments by Member 14842334 (Top 3 by date)

Sub VBAStocks()

'label column data
Dim ticker As String
Dim yearly_change As Double
Dim percent_change As Double
Dim total_stock_volume As Long
Dim ws As Worksheet
Dim Summary_Table_Row As Integer

'Name columns

Range("I1").Value = "Ticker"
Range("J1").Value = "Yearly Change"
Range("K1").Value = "Percent Change"
Range("L1").Value = "Total Stock Value"

For Each ws In Worksheet

If ws.Cells(i + 1, 1).Value <> ws.Cells(i, 1).Value Then

ticker = Cells(i, 1).Value

Range("I" & Summary_Table_Row).Value = ticker

Summary_Table_Row = 2

Summary_Table_Row = Summary_Table_Row + 1

End If
Next



End Sub

"For Each ws In Worksheet" is still encountering a debug message