I figured it out insteat of assigning to variable use the cell reference
then assign to variable just befor error handler.

If Sheets("Program Controls").Range("F8").Value = "" Then
x = MsgBox("You must enter Period From Date", vbCritical, "Error")
Range("PeriodFrom").Select
Range("PeriodFrom").Activate
End
end if