Quick "if not found" code request

[zombiemaster]

Here's an easy one (for those of you who are not ME, that is)...

I have a multi-tab workbook that includes a MASTER sheet as well as (usually) a sheet named "UNKNOWN". My code copies some data from MASTER to UNKNOWN...BUT...what happens if "UNKNOWN" isn't there? I'm sure it will crash because it can't find it, and although I've been lucky so far and it's there every time, there's no guarantee...

So - here's my existing code:

    Sheets("MASTER").Select
    Range("F1:H1").Select
    Selection.Copy
    Sheets("UNKNOWN").Select
    Range("F1").Select
    ActiveSheet.Paste

I want the code to ignore that piece if UNKNOWN isn't found as a tab name. Any thoughts on an easy simple fix?

Thanks as always,
~ZM~

 

[My Aswer Is This]

Try this:

Sub Copy_Me()
On Error GoTo M
'Modified  4/25/2019  11:40:29 AM  EDT
Sheets("MASTER").Range("F1:H1").Copy
Sheets("UNKNOWN").Range("F1").PasteSpecial
Application.CutCopyMode = False
Exit Sub
M:
Application.CutCopyMode = False
MsgBox "We had a problem here"
End Sub

 

[Fluff]

How about

If Evaluate("isref(UNKNOWN!A1)") Then
   Sheets("MASTER").Range("F1:H1").Copy Sheets("UNKNOWN").Range("F1")
End If

 

[dmt32]

Hi,
not as clean as Fluff's but i included some error handling in case copy / paste fails

Const SheetName As String = "UNKNOWN"
    On Error GoTo exitsub
    If Evaluate("ISREF('" & SheetName & "'!A1)") Then
        Sheets("MASTER").Range("F1:H1").Copy Sheets("UNKNOWN").Range("F1")
    Else
        Err.Raise 600, , "Sheet Name: " & SheetName & Chr(10) & "Not Found"
    End If
exitsub:
    If Err > 0 Then MsgBox (Error(Err)), 48, "Error"

Dave

 

[zombiemaster]

Thanks, Fluff - I knew it would be easy (for pretty much anyone else) - that worked perfectly!

~ZM~

 

[Fluff]

You're welcome & thanks for the feedback