Hi ,
I am trying to prepare a check list in excel.What I need is whenever the user enters any text in the cell the, the macro changes the same cell into a signstamp. I am able to do for a single cell but could not able to do for a range of cells.Well I have a work around of putting the initial in one cell and signstamp will be coming adjacent to it but I wanted it to be in the same cell.
Any help will be greatly appreciated.
I am trying to prepare a check list in excel.What I need is whenever the user enters any text in the cell the, the macro changes the same cell into a signstamp. I am able to do for a single cell but could not able to do for a range of cells.Well I have a work around of putting the initial in one cell and signstamp will be coming adjacent to it but I wanted it to be in the same cell.
Any help will be greatly appreciated.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H5")) Is Nothing Then SignStamp
End Sub
Sub SignStamp()
USNAME = Environ("username")
SGNTIME = " " & Date
Range("H5").Value = USNAME & SGNTIME
End Sub