Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Loop through all used range
Sub ResetTest4()
    For Each n In ActiveSheet.UsedRange
        If n.Value <> 0 Then
            n.Value = 0
        End If
    Next n
End Sub