Macro to apply a pattern to a cell

Hi everyone,
Yes, I'm somewhat new to macros. Unless I can just record them and go I'm not much use. Which brings me to this; is there a way to record a macro to add a pattern to a cell without changing that cells color?

No matter what I try, the macro to pattern the cell always changes its color to white. I have three colors I use in my spreadsheet and just want a pattern to show task completed.

Thank you.

Thank you. Basically all I want to do is the same as when you right click, format cells, go to the Fill tab and select a pattern style.

I'm guessing you recorded, which would give you code like this.

Please Login or Register  to view this content.

You have to edit out the first line of the With

Please Login or Register  to view this content.

Thanks John. I'll try that! Here's what I have right now:

Sub Slash()
'
' Slash Macro
'
' Keyboard Shortcut: Ctrl+s
'
With Selection.Interior
.Pattern = xlLightDown
.PatternColorIndex = xlAutomatic
.ColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Then delete this

Please Login or Register  to view this content.

Or it will change the interiorcolor from what it was.

Worked beautifully!! Thank you so very much John.

You're welcome. Glad to help out, and thanks for the feedback. Please comply with Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.