Find and select

[trevormay99]

I recorded a macro that searches for excel formulas, selects, copies and pastes the formulas to the top of the spreadsheet, more specifcally N2, the code runs and functions properly when used alone, however when I call the macro into another macro and run them together I get an run time error 1004 no cells found. Is there anyway I can get this macro added into another macro so they can run together and still function properly

Private Sub SumFix()
'
' SumFix Macro
'

'
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-18
    Range("N2").Select
    ActiveSheet.Paste
End Sub

 

[6StringJazzer]

First you can simplify this code quite a bit.

Private Sub SumFix()
    On Error GoTo NoCells
    Selection.SpecialCells(xlCellTypeFormulas, 23).Copy Range("N2")
    Exit Sub
NoCells:
    MsgBox "No formulas found in " & Selection.Address
End Sub

If there are no formulas in Selection when SumFix is called then you will get this error, which may be your problem. I have added error handling.

I don't know if that will fix your problem but there is no hope of fixing it until we see all the code. Please show us the other code that you call this from, and identify which line of code causes the error.