Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Providing Dynamic Scaling to Your Worksheets

Private Sub Worksheet_Change(ByVal Target As Range)      If Target.Address = Me.Range("ScaleFactor").Address Then          ScaleData      End If  End Sub  Private Sub ScaleData()      If Me.Range("ScaleFactor").Value = "Normal" Then          Me.Range("ScaleRange").NumberFormat = "#,##0"      Else          Me.Range("ScaleRange").NumberFormat = "#,"      End If  End Sub