S
Simon Lloyd
Just a test to see which code tags get parsed, no need to respond thank
VBA tags
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
Code tags
Code
-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
-------------------
--
Simon Lloy
Regards
Simon Lloy
'Microsoft Office Help' (http://www.thecodecage.com
VBA tags
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object
ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
Code tags
Code
-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range
Application.screenupdating= fals
Worksheets("usage").Visible = Fals
If Worksheets("Usage").Visible = True The
Exit Su
End I
With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp
.offset(1, 0).Value = Target.Text & Target.Addres
.offset(1, 1).Value = Sh.Nam
.offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm"
.offset(1, 3).Value = environ("username"
End Wit
Application.screenupdating= tru
End Su
-------------------
--
Simon Lloy
Regards
Simon Lloy
'Microsoft Office Help' (http://www.thecodecage.com