Hello,
Below is a macro to be tested... to determine if it is in line with your objective :
Code
Sub Inputs2()
Dim c As Range
Dim counter As Long
' Test Two Conditions : Not Empty And Is a Number ....
For Each c In Range("D24,F24,H24,J24,L24")
If c <> "" And IsNumeric(c) Then counter = counter + 1
Next c
If counter = 5 Then
MsgBox "All Five Numbers are available for Solver ...!!!"
' In this case ONLY you can run The SOLVER MACRO
' Application.Run("SolverMacro")
Else
MsgBox "All Data is NOT available for Solver ..."
End If
End Sub
Display More
Hope this will help