Split Range in VBA

[Krispy]

I would like to select a split range to apply formatting with a macro

eg: Range(A1:B9, H1:J9)

My problem is that my current code selects all cells inbetween

eg: Range(A1:J9)

This is the line in question ...

' Define Report Area to be formatted
Set FormatRng = Range(Range(Cells(Equal.Row, Equal.Column), Cells(Equal.Row + RowCount, Equal.Column)), _
Range(Cells(NotEqual.Row, NotEqual.Column), Cells(NotEqual.Row + RowCount, NotEqual.Column)))

Looking forward to your suggestions

 

[MickG]

Hi, This might help:-

Dim rng As Range
Set rng = Union(Range("A1:B9"), Range("H1:J9"))
rng.Interior.ColorIndex = 34
MsgBox rng.Address

Regards Mick

 

[Krispy]

Brilliant

Range >> Union did the trick

Thanks for your help