please check and try this VBA code if it helps....

Sub DoSomething()
*   ' siti Vi*
   Dim w As Worksheet, xCel As Range
   Dim sCriteria As String

   sCriteria = "MyCriteriaText"  '<< please edit
   For Each w In Worksheets
      If Not w.Name = ActiveSheet.Name Then
         If Not LCase(w.Name) = "home" Then
            For Each xCel In w.UsedRange
               If xCel.Value = sCriteria Then xCel.Clear
            Next xCel
         End If
      End If
   Next w
End Sub


On Sat, Jun 4, 2011 at 11:47 AM, sswcharlie <swch...@gmail.com> wrote:

> Hi
> Part of a another code -
> I want to find the value(text) in active cell (value changes often) in
> workbook (except current WS and one other worksheet 'home") and
> delete. Could be more than one instance.
>
> Thanks
> Charlie
>
>

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to