Another one -

Sub test2()
Dim nColFirst As Long, nColLast As Long
Dim sMsg As String
Dim ar As Range

Range("B2:B9,D2:E9,G2:I9").Select

For Each ar In Selection.Areas
With ar
nColFirst = .Column
nColLast = nColFirst + .Columns.Count - 1
If nColLast = nColFirst Then
sMsg = sMsg & nColFirst & " "
Else
sMsg = sMsg & nColFirst & ":" & nColLast & " "
End If
End With
Next

MsgBox sMsg
End Sub

Regards,
Peter T

"Dan Thompson" wrote in message
...
I am having trouble with this macro

Sub ReturnColumnNumbers()
Dim ColNum As Integer
ColNum = Selection.Column
MsgBox ("The Selected Column Numbers are" & Chr(13) & ColNum)
End Sub

The problem is it works when I select just one column but if I select more
than one column it does not return the other column numbers ?

Any thoughts ?

Dan Thompson