Horizontal Alignment via Text String gives Run-time error '1004'

[OilEconomist]

Thanks in advance and Season Greetings!

How to set alignment through a text string and avoid getting the error "Run-time error '1004': Application-defined or object-defined error"?

Code is as follows:

Option Explicit

Sub AlignmentTestDoesNotWork()

    Dim HzAlng As String
    
    HzAlng = "xlRight"
    Sheets("Sheet1").Cells(2, 2).HorizontalAlignment = HzAlng
        
End Sub

 

[MARK858]

xlRight isn't a string, it's a constant

Sub AlignmentTestDoesNotWork()

    Dim HzAlng As Long
   
    HzAlng = xlRight
    Sheets("Sheet1").Cells(2, 2).HorizontalAlignment = HzAlng
       
End Sub

 

[DanteAmor]

Try:

Sub AlignmentTest()
    Dim HzAlng As Variant         'as variant
    
    HzAlng = xlRight              'without quotation marks
    
    Sheets("Sheet1").Cells(2, 2).HorizontalAlignment = HzAlng
        
End Sub

 

[OilEconomist]

xlRight isn't a string, it's a constant

Sub AlignmentTestDoesNotWork()

    Dim HzAlng As Long
  
    HzAlng = xlRight
    Sheets("Sheet1").Cells(2, 2).HorizontalAlignment = HzAlng
      
End Sub

This works. Thanks for your help!

 

[OilEconomist]

Try:

Sub AlignmentTest()
    Dim HzAlng As Variant         'as variant
   
    HzAlng = xlRight              'without quotation marks
   
    Sheets("Sheet1").Cells(2, 2).HorizontalAlignment = HzAlng
       
End Sub

Thanks @DanteAmor! This also works, but I marked @MARK858 's solution as correct since it was the first response. Thanks to both of you!

 

[MARK858]

You're welcome. happy we could help