This is the code to add to your excel file in order for you to increase the price, Please pay special attention where it say's Call CheckDollar ("A") and so on. Basically, I don't know in which column or sheet you have the price $ is placed so what this code does it will look for dollar sign and increase the price in my example by 5% or 10%

PLAINTEXT
Cells(i, column).Value = (Cells(i, column).Value) * 1.05

Above statement show's price increase by 5% and the following code shows price increase by 10%

PLAINTEXT
Public Sub main() 

Call CheckDollar("A") 
Call CheckDollar("B") 
Call CheckDollar("C") 
Call CheckDollar("D") 
Call CheckDollar("E") 
Call CheckDollar("F") 
Call CheckDollar("G") 
'etc 
End Sub 


Public Sub CheckDollar(column As String) 

Dim N As Long, i As Long 


N = Cells(Rows.Count, column).End(xlUp).Row 

For i = 1 To N 
' MsgBox (Cells(i, column).NumberFormatLocal) 
If InStr(Cells(i, column).NumberFormatLocal, "$$") > 0 Or Cells(i, column).NumberFormatLocal = "$#,##0.00" Then 
Cells(i, column).Value = (Cells(i, column).Value) * 1.1 
End If 
Next i 

End Sub

Enjoy.

Was this worth your time?