Run Time Error

[clmack70]

I have two problems I need help with.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
The code below I get a Run Time Error 1004 about the cell being protected. It highlights “Worksheets("RBS IDS").Range("D" & i + 2).Copy LastR”. I have tried using “UserInterFaceOnly” and “Sheets.unprotect password: =””” either of them work.

Dim i As Long, j As Long, LastR As Range
 
   For i = 0 To Me.ListBox1.ListCount - 1
       If Me.ListBox1.Selected(i) Then
           Set LastR = ActiveSheet.Range("A4")
           If Not IsEmpty(LastR) Then
               Set LastR = ActiveSheet.Range("a" & Rows.Count).End(xlUp)(2)
           End If
           j = j + 1
           Worksheets("RBS IDS").Range("D" & i + 2).Copy LastR<o:p></o:p>
       End If
   Next i
   MsgBox j & " Selection Added"

Also the following code is giving me a Run Time Error 438
<o></o>
“Object doesn’t support this property or method”
<o></o>
It highlights “With Application.FindFormat.Font”

Sheets("Sheet1").Range("B4:M654").Select<o:p></o:p>
   With Application.FindFormat.Font<o:p></o:p>
   .Strikethrough = True<o:p></o:p>
   .Superscript = False<o:p></o:p>
   .Subscript = False<o:p></o:p>
   End With<o:p></o:p>
   <o:p></o:p>
   Cells.Find(What:="", After:=ActiveCell, LookIn:=xlContents, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate<o:p></o:p>
   Rows("4:654").Select<o:p></o:p>
   Selection.Clear<o:p></o:p>
   Range("A4").Select<o:p></o:p>
   Cells.FindNext(After:=ActiveCell).Activate

I am trying to clear the content for rows with strikethrough font.

 

[Andrew Poulsom]

For your first question have you tried?

ActiveSheet.Unprotect

For your second question what version of Excel do you have? The FindFormat property is relatively new.

 

[clmack70]

I have 2000

 

[Andrew Poulsom]

Excel 2000 doesn't have a FindFormat property.

 

[clmack70]

The Activesheet does not work either.

 

[Andrew Poulsom]

The Activesheet does not work either.

In what way doesn't it work?

 

[clmack70]

I get the same error message.

 

[Andrew Poulsom]

How can that be if you have unprotected the target worksheet?

 

[clmack70]

that is what i an trying to figure out. I used the Tool>Protection to lock some cell and allow edit to other cells. Would that cause a problem?

 

[Andrew Poulsom]

If you unprotect the worksheet locking has no effect.