VBA Code creating a title for columns that are not blank

[peter_z]

Hey Guys, I'm a bit stuck on this one.
Anyone have any code or any idea how to write a piece of code which will look down a column and then if there are some cells with letters and numbers return a title or if there are no cells then return no title.

Also say column 1 has something title would be -> Field 1
Column 2 has something title would be -> Field 2
Column 3 onwards has nothing -> stop titles

Cheers for your help in advance

 

[p45cal]

try:

Sub blah()
FieldNo = 1
For Each colm In ActiveSheet.UsedRange.Offset(1).Columns
    If Application.CountA(colm) > 0 Then
        If IsEmpty(Cells(1, colm.Column)) Then
            Cells(1, colm.Column).Value = "Field " & FieldNo
            FieldNo = FieldNo + 1
        Else
            MsgBox "Cell " & Cells(1, colm.Column).Address(False, False) & " already appears to have something in it, so no new header added."
        End If
    End If
Next colm
End Sub

 

[peter_z]

ur the man p45cal, code works awesome Thanks for your help