The code compiles, but the 'And' doesn't seem valid:
Code:
s_RtRcvdDt = trim(Sess.Screen.GetString( 10, 06, 15))
if IsDate(s_RtRcvdDt) then
i_DaysDiff = DateValue(Date()) - DateValue(s_RtRcvdDt)
End If
s_RtRcvdJb = trim(Sess.Screen.GetString( 10, 65, 71))
if i_DaysDiff = 1 And s_RtRcvdJb = "CCM130D" then
Sess.Screen.MoveTo 10, 2
Sess.Screen.SendKeys "s<Enter>"