Hi there,
I have written the following macro to change the color of a cell as
selected. I am trying to adjust the macro where it will automatically add
(6)cells to the right of the selected cell and apply the same format.

the Macro is:

Sub Macro2()
ActiveSheet.Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A1").Select
End Sub

Your help is greatly appriciated

Try something like this:

Sub PaintMeAndSixCellsRight()
With ActiveCell.Resize(Columnsize:=7).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A1").Select
End Sub


Is that something you can work with?
Post back if you have more questions.

Regards,

Ron
Microsoft MVP - Excel


"abumustapha" wrote in message
...
Hi there,
I have written the following macro to change the color of a cell as
selected. I am trying to adjust the macro where it will automatically add
(6)cells to the right of the selected cell and apply the same format.

the Macro is:

Sub Macro2()
ActiveSheet.Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A1").Select
End Sub

Your help is greatly appriciated

Hi

Look at this

Sub Macro2()
ActiveSheet.Select
aCell = Selection.Address
Range(aCell, Range(aCell).Offset(0, 6)).Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A1").Select
End Sub

Regards,
Per

"abumustapha" skrev i meddelelsen
...
Hi there,
I have written the following macro to change the color of a cell as
selected. I am trying to adjust the macro where it will automatically add
(6)cells to the right of the selected cell and apply the same format.

the Macro is:

Sub Macro2()
ActiveSheet.Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A1").Select
End Sub

Your help is greatly appriciated

Try:

Sub Macro2()

With Selection.Resize(1, 6).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With

End Sub

Good luck.

Ken
Norfolk, Va


On May 19, 2:41*pm, abumustapha
wrote:
Hi there,
I have written the following macro to change the color of a cell as
selected. I am trying to adjust the macro where it will automatically add
(6)cells to the right of the selected cell and apply the same format.

the Macro is:

Sub Macro2()
* * ActiveSheet.Select
* * With Selection.Interior
* * * * .ColorIndex = 40
* * * * .Pattern = xlSolid
* * End With
* * Range("A1").Select
End Sub

Your help is greatly appriciated