if syntax error

then missing. sorry i realized. thanks

i am trying to check if this month do something or lastmonth do somehting
this is the code i provide here. but when i have messagbox here it is not displaying anything
x = MyScreen.SendKeys("F CurrentMonthName <ENTER>")
MsgBox x
if x then
Call Found
elseif MyScreen.SendKeys("F LastMonthEnd <ENTER>") then
if strEOFerrormsg = "End of data reached" or strEOFerrormsg = "Scroll at maximum " then

Call Endpgm
Else
Call Found
end if
End if
End if

End Sub

Hi

is sending LITERALLY... F CurrentMonthName

I believe that you want to send F Jan

Yes?

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

thansk Skip
i am trying to have last month
this functionhas given 1
i need to have month MMM ie jan

Month(DateSerial(1, Month(Now), 1)) - 1
how do it do it.
thanks