View Single Post
  #2 (permalink)  
Old September 28th, 2007, 04:47 AM
Shasur Shasur is offline
Friend of Wrox
Points: 3,060, Level: 23
Points: 3,060, Level: 23 Points: 3,060, Level: 23 Points: 3,060, Level: 23
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Sep 2005
Location: , , .
Posts: 812
Thanks: 1
Thanked 53 Times in 49 Posts
Default

Here you have

Sub Format_Cell_Currency()

' Without Decimals
ActiveCell.NumberFormat = "$0"

' Without Decimals
ActiveCell.NumberFormat = "$0.00"

End Sub

Cheers
Shasur


http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)