Private Sub UserForm_Initialize()
ComboBox1.Value = "Yes"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Worksheets("Report").Range("D5"), True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Me.Range("D5"), True
End Sub