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