Custom Number Format from Range
Sub NumberFormat() ' Range should be formatted as "TEXT";"TEXT" Range("B2:B19").NumberFormat = Range("C2:C19").Value End Sub