Focus cells

[sivdin]

Hi Friends,

Below code is for an userform. Data gets filled in Sheet1.But Sheet1 is in "Veryhidden mode" for my requirement. So, the range A4 in sheet1 is focussed according to below code.There is Sheet2 which is directly linked with Sheet1. (only Sheet2 is visible inscreen)
All I need is ,The range A4 should be focussed in sheet2. and data should always go into sheet1 in very hidden mode.

Private Sub cmdSUBMIT_CLICK()
ActiveWorkbook.Sheets("Sheet1").Activate
    If cboName.Value = "MICHEL" Then
    Range("A4").Show
    Range("A4").Select
    ElseIf cboName.Value = "ANDY" Then
    Range("A101").Show
    Range("A101").Select
End if

Hope the explanation is clear. Any help please. Thanks in advance