Reply to thread

Message: [QUOTE="Simon Lloyd, post: 6436759"] Test for cade tags parsing and view in the newsgroups VBA tags: ication.screenupdating= false Worksheets("usage").Visible = False If Worksheets("Usage").Visible = True Then Exit Sub End If With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp) offset(1, 0).Value = Target.Text & Target.Address offset(1, 1).Value = Sh.Name offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm") offset(1, 3).Value = environ("username") End With Application.screenupdating= true End Sub Code tags: Code: -------------------- ication.screenupdating= false Worksheets("usage").Visible = False If Worksheets("Usage").Visible = True Then Exit Sub End If With ThisWorkbook.Worksheets("usage").Cells(Rows.Count, "A").End(xlUp) .offset(1, 0).Value = Target.Text & Target.Address .offset(1, 1).Value = Sh.Name .offset(1, 2).Value = Format(Now, "dd mmm yyyy, hh:mm") .offset(1, 3).Value = environ("username") End With Application.screenupdating= true End Sub -------------------- -- Simon Lloyd Regards, Simon Lloyd 'Microsoft Office Help' ([URL]http://www.thecodecage.com[/URL]) [/QUOTE]