Determining Start & End Points in Selected Cells

  • Thread starter Thread starter Chris Hankin
  • Start date Start date
C

Chris Hankin

Hello,

Could someone please help me with the following:

When a user selects a row of cells, I wish to determine the beginning and &
end cell of their selection.

The row selected is a single row.

The row length may vary.

Kind regards,

Chris.
 
Sub GetSelectionInfo()
MsgBox Selection(1).Address
MsgBox Selection(Selection.Count).Address
End Sub

Regards,
Greg
 
Thanks Greg for your e-mail reply - much appreciated.

The reason I wanted the beginning and end cell addresses when a user
selects a single row of cells at random, is that I wanted to color the
first and last cell in their selection with the color black (Excel color
number is 1).

Could you please advise on how I may achieve this.

Kind regards,

Chris.



*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!
 
Sub GetSelectionInfo()
Selection(1).Interior.ColorIndex = 1
Selection(Selection.Count).Interior.ColorIndex = 1
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Changes in How Code Acts After Upgrade of Excel 2
Determining row # of selected cell 2
Adjusting height of text cells 3
Code to add comments to selected cells within a selected range 30
Referencing a cell as a row number 5
Border formatting row of cells 22
Macro to count down and select specific number of rows 1

Back
Top