Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
Dim xLast_Row As Long
Dim xThis_Col As Long
Dim i As Long
xThis_Col = ActiveCell.Column
xLast_Row = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row
If xLast_Row = 0 Then
MsgBox ("Empty sheet. Run cancelled.")
For i = 1 To xLast_Row
On Error Resume Next
If Len(Cells(i, xThis_Col)) > 1 _
Then Cells(i, xThis_Col).Characters(Start:=2, Length:=Len(Cells(i, xThis_Col)) - 1).Font.Color = 16777215
On Error GoTo 0
Open in new window
Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!