I am not a pro at macros, I am learning as I go. My problem is that I want the minus sign to move from the right to the left, and that works fine. The problem is...the range changes in reference to the number of rows column A occupies.
The minus sign I want to move are in columns L through N and Q through W
Can someone please help, Thanks
ColumnARange = Intersect(ActiveSheet.UsedRange, Columns("A")).Address
Range("K2:m2").Select
On Error Resume Next
Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If Right((Trim(cel)), 1) = "-" Then
cel.Value = cel.Value * 1
End If
The minus sign I want to move are in columns L through N and Q through W
Can someone please help, Thanks
ColumnARange = Intersect(ActiveSheet.UsedRange, Columns("A")).Address
Range("K2:m2").Select
On Error Resume Next
Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If Right((Trim(cel)), 1) = "-" Then
cel.Value = cel.Value * 1
End If