correct this code????

[appu_gusai]

hi all,

please anyone can correct this code for me?

Sub test()
      
        With ActiveWorkbook.Worksheets("Sheet1").Range("A4")
            .FormulaR1C1 = "=" & "QTR: " & "LOOKUP(MONTH(Now()),{1,4,7,10},{""FOUR"",""ONE"",""TWO"",""THREE""})"
            .Font.Bold = True
            .Merge
            .Value = .Value
            .HorizontalAlignment = xlJustify
            .VerticalAlignment = xlCenter
        End With

End Sub

 

[Luke M]

Taking a guess that you translating the current month into quarters:

Sub test()
     
    With ActiveWorkbook.Worksheets("Sheet1").Range("A4")
        .Font.Bold = True
        .Value = "QTR: " & Evaluate("LOOKUP(MONTH(TODAY()),{1,4,7,10},{""FOUR"",""ONE"",""TWO"",""THREE""})")
        .HorizontalAlignment = xlJustify
        .VerticalAlignment = xlCenter
    End With

End Sub

 

[NARAYANK991]

Hi ,

Correct one statement as follows :

.Formula = "=" & """QTR: """ & " & " & "LOOKUP(MONTH(Now()),{1,4,7,10},{""FOUR"",""ONE"",""TWO"",""THREE""})"

Narayan

 

[appu_gusai]

Taking a guess that you translating the current month into quarters:

Sub test()
    
    With ActiveWorkbook.Worksheets("Sheet1").Range("A4")
        .Font.Bold = True
        .Value = "QTR: " & Evaluate("LOOKUP(MONTH(TODAY()),{1,4,7,10},{""FOUR"",""ONE"",""TWO"",""THREE""})")
        .HorizontalAlignment = xlJustify
        .VerticalAlignment = xlCenter
    End With

End Sub

thank's a lot for this correction

 

[appu_gusai]

Hi ,

Correct one statement as follows :

.Formula = "=" & """QTR: """ & " & " & "LOOKUP(MONTH(Now()),{1,4,7,10},{""FOUR"",""ONE"",""TWO"",""THREE""})"

Narayan

thank's a lot for this correction