You can do

Select Case shtInput.Range("RiskT")

Case "FIXED": Module3.SetPagesFixed

Case "VARIABLE": Module3.SetPagesVariable
End Select


--
__________________________________
HTH

Bob

"Brad" wrote in message
...
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