With Reflection
Worksheets("H7").Range("A2").Select
Do Until ActiveCell.Value = ""
.Transmit Format(ActiveCell.Value, "00000000") 'reference
.Wait "0.5"
.TransmitTerminalKey rcVtRemoveKey
.Wait "0.5"
.Transmit "1"
.Wait "0.5"
.TransmitTerminalKey rcVtEnterKey
ActiveCell.Offset(1, 0).Select
.Wait "0.5"
Loop
' .TransmitTerminalKey rcVtF16Key
' .Wait "0.3"
'.Transmit "1"
'.Wait "0.3"
'.TransmitTerminalKey rcVtEnterKey
' .Wait "0.3"
End With
'If Reflection.Connected = True Then
'Reflection.Disconnect
'End If
'Reflection.Visible = False
'Reflection.Quit
Worksheets("H7").Activate
Worksheets("H7").Range("A2").Select