zoso
Well-known Member
- Joined
- Oct 23, 2003
- Messages
- 725
Hi there!
I have the following code assigned to a toolbar button:
What I'm after is an amendment to this code so that it runs as above only in sheet 'Training Log' column F.
However, I also need the following 2 criteria to apply:
1) If I select a cell in 'Analysis' sheet column F I need the code to run but without the font part i.e. only the shading is applied.
2) If any other column or sheet is selected I don't want the code to run at all.
Hope this is possible - and thanks!
I have the following code assigned to a toolbar button:
Code:
Sub FillCell()
With Selection
.Font.Name = "Wingdings"
.Font.Size = 8
.Font.ColorIndex = 15
.Value = "¤"
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End With
End Sub
However, I also need the following 2 criteria to apply:
1) If I select a cell in 'Analysis' sheet column F I need the code to run but without the font part i.e. only the shading is applied.
2) If any other column or sheet is selected I don't want the code to run at all.
Hope this is possible - and thanks!