Invoke VB code

studio
#1

Hello,

I want to eecute the following VB code:

For Each Rng In Range(“a1:B5”)

Select Case Len(Rng.Value) 'hier Spalte A
Case Is < 4: Rng.NumberFormat = “##0”

Case 4 To 6: Rng.NumberFormat = "#'##0"

Case 7 To 11: Rng.NumberFormat = "#'###'##0"

End Select
Next

but did not know what argument to put as input (if i had an Excel file).