I am sure it is something simple but not the screenupdating - full code on
button :-

Sub InsertHomePar()

If EmptyRng(Sheets("Current Round").Range("D109,C111:C111,C114:K114"))
Then

MsgBox "There are incomplete entries" _
& vbCrLf & _
"in the Home Par section"

Sheets("Current Round").Range("D109").Select

Exit Sub
End If


Sheets("Current Round").Unprotect Password:="*****"

Application.ScreenUpdating = False
Application.EnableEvents = False


Sheets("Current Round").Range("C14:K14").Value = Sheets("Current
Round").Range("C111:K111").Value
Sheets("Current Round").Range("C20:K20").Value = Sheets("Current
round").Range("C114:K114").Value
Sheets("Current Round").Range("H3").Value = Sheets("Current
round").Range("D109").Value

Application.ScreenUpdating = True
Application.EnableEvents = True

Sheets("Current Round").Protect Password:="*****"

End Sub



"Susan" wrote in message
...
i ran a test macro on a sheet & "select" did move the screen to the
selected cell. perhaps you have application.screenupdating set to
false?
hth
susan



On Jul 24, 8:51 am, "Sandy" wrote:
I have a piece of code on a button on Sheets("Current Round"). The button
is
at the top of the sheet.

If ******Code******* Then
MsgBox "There are incomplete entries etc"

Sheets("Current Round").Range("D109").Select

Exit Sub
End If

How can I force Cell "D109" not only to be selected but also visible in
the
window.

Thanks
Sandy