Sub test() On Error GoTo Fejlfanger Application.Goto Sheets(Range("B1").Text).Range("A1"), True Exit Sub Fejlfanger: MsgBox "Arket findes ikke", vbCritical End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.