print out last non blank column

[gint32]

Hi Everyone, can anybody throw some light on the below code,
I am trying to get the vba to msgbox out the contents of each cell headers which are in the first row and then stop, at the moment it runs on to the next rows msgboxing those cell contents also ...many thanks in advance

Sub PrintToImmediateWindowEach()

 Dim example As Range
 Dim last_col As Variant
 
     last_col = Cells(1, Columns.Count).End(xlToLeft).Column
     last_col = Split(Cells(1, last_col).Address, "$")(1)
 
Set example = Range("A:" & last_col)
 
   For Each example In Range("A:" & last_col)
  
        MsgBox example
       
    Next
   
End Sub

 

[mohadin]

Hi
Try to change to

Set example = Range(last_col & 1)

 

[mohadin]

Sorry
TRy

Sub PrintToImmediateWindowEach()

 Dim example As Range
 Dim last_col As Variant
 
     last_colc = Cells(1, Columns.Count).End(xlToLeft).Column
    
 
For i = 1 To last_colc

MsgBox Cells(1, i)
Next

   
End Sub

 

[Fluff]

Another option

Sub PrintToImmediateWindowEach()

 Dim example As Range
 Dim last_col As Long
 
     last_col = Cells(1, Columns.Count).End(xlToLeft).Column
 
 
   For Each example In Range("A1").Resize(, last_col)
  
        MsgBox example
       
    Next
   
End Sub

 

[gint32]

Thanks very much for everyones help as either one of these solutions is a great sort for me..have a great xmas

 

[Fluff]

Glad we could help & thanks for the feedback.