Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with Procedure to return selected column numbers
try this UDF:
Option Explicit Function ColumnCount(target As Range) As String Dim cl As Range Dim text As String For Each cl In target.Columns text = text & "," & cl.Column Next text = Mid(text, 2) ColumnCount = text End Function "Dan Thompson" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to return a set of numbers in column A | Excel Worksheet Functions | |||
how to sort a column of Randomly selected numbers? | Excel Worksheet Functions | |||
Function to return # of column with min value in selected rows | Excel Worksheet Functions | |||
Increment numbers in column A by 1 when selected | Excel Programming | |||
Add selected numbers in a column that are a different color | Excel Discussion (Misc queries) |