Help to Multi Range Code in Sheets(1)

Hi Forum.

There is a description on the problem in the attached, when opening.
But I'll describe my problem here too.
---------------------------------

Depending of the selected area, the cells will On Focus change to yellow and change back Off Focus.
And it's only in the selected area.

My problem is in the code in Sheets(1) = Private Sub Worksheet_SelectionChange(ByVal Target As Range)
The range in my real worksheet is far to big and makes a BUG.
The code runs, if I only use 2/3 of the range.

Below in this Sheets(1), is a copy of the code from my real Worksheet.
And in this code I had tried to set up a Multi Range, to split up the Range-codes.

There is a REM-line in both the Small area and the Big area.
The REM-line is the original Range-code, which makes the BUG.

Just below the two REM-lines is the codes I had tried to set up.
They should define Range r1-r2 and r3-r4.

But I can't figure out, how to make the codes.
I hope to get some help.

Kind regards
Ib

I only see "Ark1" worksheet, I don't see the "Forside" sheet; is that the problem or you just deleted Foreside trying to keep your example simple?

Please Login or Register  to view this content.

I have a fully working "Time Stamp Code" with a "Multi Range Code", in the same Workbook .
It was this "Multi Range" I tried to duplicate to the "Color Code".

If I use the "Time Stamp, Multi Range" together with the "Color, Normal Range" it works.
But trying to duplicate the "Multi Range" into the "Color Code" doesn't work.

This is the working Time Stamp Code.
Ps. There is a lot of Danish explanation in between the code and as you can see below the Multi Range Code, is the Normal Range Code (REM) as well.

Please Login or Register  to view this content.

This is a lot of code to review and I have a project deadline, so I'm running out of time. If you're able to isolate a smaller example of code that shows how it breaks then it may be easier for the group to help troubleshoot... and also for you to troubleshoot.

I did find some example code that may be of help. Sorry that I'm running out of time on this.

Notice how this code used the For EACH command; I've also seen examples that use the .Address method as well. Again, if you can show some smaller code that still breaks then i suspect you will discover your error or at least have something easier to help with.

Please Login or Register  to view this content.