Format a cell

  • Thread starter Thread starter Michael Smith
  • Start date Start date
M

Michael Smith

Looking to have a macro look through all data in a spreadsheet and
format it based on criteria.
If data is greater than 1 format as $
If data is less than 1 then format as a %.


Thanks in advance!-Mike
 
This should give you the right idea:

Sub test()

Dim c As Range
Dim ws As Worksheet
Set ws = ActiveSheet

For Each c In ws.Range("A1",
ws.Cells.SpecialCells(xlCellTypeLastCell).Address)
If c.Value < 1 Then
c.NumberFormat = "0.00%"
Else
c.NumberFormat = "$#,##0.00"
End If

Next c

End Sub
 
Back
Top