Hard to tell how this really looks, but it will work if it is set up like
this:

If Sheet16.Range("printcell") = 1 Then
Sheet16.Range("exp_loss_page_no").Value= b + 1
Else
Sheet16.Range("exp_loss_page_no") .Value= 0
End If


If you want it all on one line you don't need End if

--
Regards,
Tom Ogilvy

"dave!!" wrote in message
...
can anyone tell me what's wrong with this??

If Sheet16.Range("printcell") = 1 Then Sheet16.Range("exp_loss_page_no")
.Value= b + 1 Else
Sheet16.Range("exp_loss_page_no") .Value= 0
End If

Hi Dave
looks o.k. (besides some linewrapping). What does not work for you?

--
Regards
Frank Kabel
Frankfurt, Germany


dave!! wrote:
can anyone tell me what's wrong with this??

If Sheet16.Range("printcell") = 1 Then
Sheet16.Range("exp_loss_page_no") .Value= b + 1 Else
Sheet16.Range("exp_loss_page_no") .Value= 0
End If

can anyone tell me what's wrong with this??

If Sheet16.Range("printcell") = 1 Then Sheet16.Range("exp_loss_page_no")
..Value= b + 1 Else
Sheet16.Range("exp_loss_page_no") .Value= 0
End If