Tijdelijk onderbreken macro

[ElGreco]

Ik wil met een macro (VBA) de inhoud van een cel verplaatsen naar een andere cel die eerst geselecteerd moet worden. Dit is een cel die eerst aangewezen moet worden. Feitelijk moet de macro dus stoppen en weer verder gaan als een nieuwe cel is geselecteerd. Kan dit en zo ja wat is hier dan de VBA-code voor?

 

[cow18]

Sub nieuweCel()
     Dim c     As Range

     On Error Resume Next
     Set c = Application.InputBox("je staat nu in cel " & ActiveCell.Address & vbLf & "nu moet je een nieuwe cel selecteren om verder te gaan", "opgave nieuwe cel", Type:=8)
     On Error GoTo 0

     If c Is Nothing Then
          MsgBox "je hebt geen nieuwe cel geselecteerd"
     Else
          Application.Goto c
     End If


End Sub

 

[edmoor]

Dat kan op deze manier:

Set cel = Application.InputBox("Selecteer een cel:", Type:=8)
MsgBox cel.Address

Edit:
Cow was me voor

 

[emields]

aangezien er geen voorbeeldbestand is kan het niet getoond worden wat je vraagt.

 

[ElGreco]

cow18 en edmoor. Bedankt voor jullie oplossingen. Mijn vraag is hiermee beantwoord en alles werkt nu 100%.