View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default To find the column with its column heading

Sub insertCol()
For i = 1 To Columns.Count
If Cells(1, i).Value = "STOCK CODE" Then
Cells(1, i).EntireColumn.Insert
Exit Sub
End If
Next
End Sub
--
Gary''s Student - gsnu200806