Add "%" sign to every other column in a range

[csmiley]

I have a CSV file that after being imported into excel does not add a "%" sign to values in every other column beginning with row 3 and column 3. Each file can have a varying number of columns and rows (changes should always start at row 3). I am able to add the percent sign with the code below; however, it adds the % sign to every column rather than every other column. Any suggestions on add the % sign to every other column? I'm using excel 2010 if that makes a difference.

Sub Percent()
Application.ScreenUpdating = False
For Each col In Application.ActiveSheet.Columns
If col.Column Mod 2 = 0 Then
Range("C3", "DC100").Select
Selection.NumberFormat = "0""%"""

End If
Next col
Application.ScreenUpdating = True
End Sub

[shg]

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[csmiley]

Maybe:

Please Login or Register  to view this content.

John, thank you, this code works for columns beginning with column "D". I changed the line

lc = ActiveSheet.UsedRange.Columns.Count + 2
to
lc = ActiveSheet.UsedRange.Columns.Count + 1

code works perfectly beginning with column "C".

Thanks!

[csmiley]

Please Login or Register  to view this content.

Thank you shg,

This code works well, any way to remove the 0% from the blank cells?

Thank you!

[shg]

Dunno. Maybe

Please Login or Register  to view this content.

[csmiley]

Thank you, I will try that.