Sub test()

Dim cell As Excel.Range

Set cell = Excel.Worksheets("Sheet1").Cells(1, 1)

cell.HorizontalAlignment = Val("2")

End Sub

Int() just converts a number to an integer, if you want to convert a
string, you need Val().

Cheers

Remy
www.collaboral.com