Method 'Range' error at running macro on Worksheet

Hi,

I made macro, which does this ...

When I run it, it check row and column of active/selected cell, than select range(s) from 5 cells above to 5 cells below and from 5 cells left to 5 cells right. So it looks like a cross with active/selected cell in the middle.

Macro code is ...

Please Login or Register  to view this content.

Should I explain something? If...else...endif sentence under c = ActiveCell.Column change column number in to the letter. vrng = vertical range, hrng = horizontal range, ac = active cell ...

So, if you run this code will work normally, as it should ... for now it is working just if active cell is more than 5 rows and 5 columns away from edge, but there is time for improvement ... I have a problem, I got error message Method range of object _Worksheet failed when I put this code in to the Worksheet object and SelectionChange procedure ...

Please Login or Register  to view this content.

Any idea how to resolve this or why this is not working? Oh yes, I need this, because I want that every time I'll select a cell (SelectionChange) this "selected cross" will appear.


Thx in advance ... cheers, Marko

Ok

basically your formula works as long as minimum column and minimum row are 6.

either make your first three rows as follows:-

Please Login or Register  to view this content.

or if c or r are less then 6 exit your macro.

Try this...

Please Login or Register  to view this content.

Hi, this is working exactly that I was looking for! Thx!

But I still have question, just for my knowledge, what is wrong with my way of doing it, that in Worksheet_SelectionChange I got this error message?

Thx again ... cheers, Marko

Originally Posted by AlphaFrog

Put something like this as the first line in your original code to exit if more than one cell is selected.
If Target.Count > 1 Then Exit Sub

OK, now understand and yes, putting above mentioned line at the beginning of my code, solve this error.

Thx again, Marko