Fill Macro Question

[The Animal]

Hi
I have this little fill button to "Fill Colour" columns A20 to D20. If I select cell A20 it then fills all cells A20 to D20. How would it look if I wanted to select any cell in the A column to fill all cells A to D in that row I selected, So say I selected cell A600 and then used the button then all of A600 to D600 fills.

Sub NewNotRecorded()
' NewNotRecorded Macro
Range("A20:D20").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Thanks Stephen

 

[Snakehips]

Stephen,

Assuming that you want this for any single cell selected in A then...

Sub NewNotRecorded2()


If Not (Selection.Column = 1 And Selection.Cells.Count = 1) Then Exit Sub
Selection.Resize(1, 4).Interior.Color = 49407


End Sub

Hope that helps.

 

[The Animal]

Brilliant Tony Thanks

 

[The Animal]

Hey Tony
I have placed this on the main forum but maybe you could help with below question.
I have a fill macro that "Snakeships" was good enough to help me with that fills cells in columns A to D when you use a button created (below). Was wondering if I had the sheet protected and as I filled the cells A to D it changed those cells to Hidden so they are protected. So the sheet would start protected and the cells in question Unhidden so when I fill with below macro it would then change those cells to hidden and locked so they could not be modified without Unprotecting the sheet.



Sub NewNotRecorded2()


If Not (Selection.Column = 1 And Selection.Cells.Count = 1) Then Exit Sub
Selection.Resize(1, 4).Interior.Color = 49407


End Sub

 

[Snakehips]

Supplementary question above in post #4 answered ................... HERE