Application.Run "Module3.SetPages" & shtInput.Range("RiskT").value

--
Regards,
Tom Ogilvy


"Brad" wrote:

Can

If UCase(shtInput.Range("RiskT")) = "FIXED" Then
Module3.SetPagesFixed
End If
If UCase(shtInput.Range("RiskT")) = "VARIABLE" Then
Module3.SetPagesVariable
End If

This be condensed to one line - something like?

Module3.SetPages & shtInput.Range("RiskT").value


--
Wag more, bark less