Trouble with Tables

[Philip1957]

Greetings,

I have code that converts a range of numbers from negative to positive.

Sub negative_positive()
Dim conv As Range

'convert negative numbers to positive in the selection
For Each conv In Selection
If conv.Value < 0 Then
conv.Value = -conv.Value

ElseIf conv.Value > 0 Then
conv.Value = "0"

End If
Next conv

End Sub

I'm trying to apply this to a Table and can't seem to get the syntax right. I've not used VBA with tables before. I've tried many variations of the following with no luck

Sub Neg2Pos()
Dim vList As ListObject
Dim vRow As ListRow
Dim vCol As ListColumn

Worksheets("Volume Data").Activate

Set vList = ActiveSheet.ListObjects("TblVolData")
Set vCol = ActiveSheet.ListObjects("TblVolData").ListColumns("Qty")

For Each vRow In vList
    If vCol.Value < 0 Then
    vCol.Value = -vCol.Value
    
    ElseIf vCol.Value > 0 Then
    vCol.Value = "0"
    
    End If
    Next vRow
    
End Sub  'Neg2Pos

Any assistance would be most appreciated.

Thank you,
~ Phil

 

[Fluff]

How about

Sub Neg2Pos()
Dim vCol As ListColumn
Dim vRow As Range
Worksheets("Volume Data").Activate

Set vCol = ActiveSheet.ListObjects("TblVolData").ListColumns("Qty")

For Each vRow In vCol.DataBodyRange
    If vRow.Value < 0 Then
    vRow.Value = -vRow.Value
    
    ElseIf vRow.Value > 0 Then
    vRow.Value = "0"
    
    End If
    Next vRow
    
End Sub

 

[Philip1957]

Thank you again for your help Fluff. It seems you are always there when I run into trouble and I can't tell you how much I appreciate it.

 

[Fluff]

Glad to help & thanks for the feedback.