If, Then and else

[alexransome]

Hi,

What code would I use to say ...

Copy formulas in P2 and Q2, find a "#" in column P or Q, then paste the formula.

    Range("P2:Q2").Select
    Selection.Copy
    ActiveWorkbook.Worksheets("Stores").Columns(16).Find("#").Select
    ActiveSheet.Paste

Is the code I have currently and it fails if a "#" is not found.

There will always be a "#" but it may be in either P or Q.

Any help would be great.

 

[Fluff]

Untested, but try replacing

.Columns(16)

with

.Range("P:Q")

HTH