Thread: Rounding Ranges
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
jdawg jdawg is offline
external usenet poster
 
Posts: 5
Default Rounding Ranges

I am just curious if anyone knows how to either do a global round or do
a round of each of the cells in a range. I currently have the
following code in place but it only rounds the active cell.

Sub Round()
ActiveCell = Application.Round(ActiveCell, -3) / 1000
End Sub

Sub ConfirmRound()
YesNo = MsgBox("Clicking Yes will...", vbYesNo + vbCritical,
"WARNING!!!")
Select Case YesNo
Case vbYes
Call Round
Case vbNo
End Select
End Sub


I am also curious what is the code so when a user opens excel, they are
taken to a certain location no matter what location was saved prior.

Thanks