Thanks Bob

at least I don't get the error now.

I need to track the changes in particular cells when running this code. at
the moment I have used the:

" Private Sub Worksheet_Change(ByVal Target As Range)" option but this does
not change the values either when i update the cells.

Any ideas? I appreciate you help.

Regards

Steve R

"Steve" wrote:

Hi

Can anyone please help me? I get an "Else without If" error when running
this and not sure why as it seems the same as the example in the help file.

Also, what is the best way to run it if I want to run this when a certain
cell is changed. Or can it only be done when the worrksheet is changed.

Many thanks

Steve R


If Cells.Cells(9, 3).Value = "" Then Cells.Cells(9, 8).Value = ""

ElseIf Cells.Cells(9, 7).Value = "N/A" Then Cells.Cells(9, 8).Value = "0"

' Category S

ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6).Value < 5 Then
Cells.Cells(9, 8).Value = "0"

ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6) < 10 Then Cells.Cells(9,
8).Value = "5%"

ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6) 9 Then Cells.Cells(9,
8).Value = "10%"

' Category P

ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 3 Then Cells.Cells(9,
8).Value = "0"

ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 5 Then Cells.Cells(9,
8).Value = "5%"

ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 10 Then
Cells.Cells(9, 8).Value = "15%"

ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) 10 Then
Cells.Cells(9, 8).Value = "20%"

Else

Cells.Cells(9, 8).Value = ""

End If
--
Steve R