Need Help in excel, Urgent Please

xcorect

Well-known member
  • Apr 17, 2007
    7,881
    84
    48
    macro ekak run karanna

    Option Explicit
    Sub fontcolor()

    Dim myRng As Range
    Dim myCell As Range
    Dim wks As Worksheet

    Set wks = Worksheets("Sheet1")
    With wks
    Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
    End With

    For Each myCell In myRng.Cells
    With myCell
    .Offset(0, 2).Value = .Value & " " & .Offset(0, 1).Value
    .Offset(0, 2).Characters(, Len(myCell)).Font.ColorIndex = 3

    '.Characters(
    End With
    Next myCell
    End Sub