#### jmitchells5w

##### New Member

- Joined
- Jun 14, 2007

- Messages
- 35

Sub ResetVendorNumbers()

'

' ResetVendorNumbers Macro

'

Range("C5:M5").Select

Selection.NumberFormat = "General"

Range("C5").Select

Range("C5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(B2),FALSE)"

Range("D5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(C2),FALSE)"

Range("E5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(D2),FALSE)"

Range("F5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(E2),FALSE)"

Range("G5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(F2),FALSE)"

Range("H5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(G2),FALSE)"

Range("I5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(H2),FALSE)"

Range("J5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(I2),FALSE)"

Range("K5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(J2),FALSE)"

Range("L5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(K2),FALSE)"

Range("M5").Formula = "=VLOOKUP($C$3,VendorNum,COLUMN(L2),FALSE)"

Range("C5:M5").Select

Selection.NumberFormat = "@"

Range("C5").Select

End Sub