Dear Chande, Please use the following code.
Sub putclp() Dim Txt As String If ActiveCell.Locked = True Then MsgBox "this cell is locked" End Else MsgBox "this cell is not locked" ActiveCell.Copy End If End Sub Please let me know if it helps. Regards, Andy On Thu, May 21, 2009 at 1:54 PM, DOLLAR CHANDE <dollarcha...@gmail.com>wrote: > Dear Group, > > I have a Workbook where I want a macro such that if i click any unlocked > cell in any sheet or a particular sheet, all the contents of the said cell > should be copied and be ready to paste wherever i want. > > Hope i will b able to get the macro as nobody on this group is left > unanswered. > > Thx to all, > > $ Chande > > > > --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
