Thread: Copy headin
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
David T David T is offline
external usenet poster
 
Posts: 70
Default Copy headin

I have a code that replaces anything in the column with a "+" with the column
heading name, however I cannot get the code to move to the next column and do
the same thing. Can anyone help

Sub InsertRow()

Application.ScreenUpdating = False

lrow = Range("A" & Rows.Count).End(xlUp).Row

For i = lrow To 2 Step -1
c = 12
If Cells(i, c).Value Like "*+*" Then Cells(i, c).Value = Cells(1, c)

Next i
End Sub