Format Cell with Mouse Click
How about double click?
put this in worksheet code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Columns("C")) Is Nothing Then
Exit Sub
End If
Target.Value = Date
Target.Interior.ColorIndex = 6
End Sub
double click any cell in column C and get the date and a yellow background.
--
Gary's Student
"Ken" wrote:
Given one column: Insert date and a specific color by clicking a cell
in that column with mouse: either right or left...Clicking on any cell
in the column should produce the same results.
|