Thanks :)

Tom - the master copy works great - needed to add an s ...

worksheet*s*.count

final copy in use also exits if target is blank...

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
If Target.Column < 22 Then Exit Sub
If Target = "" Then Exit Sub
With ThisWorkbook
.Worksheets("Master_BOM").Copy After:=.Worksheets(.Worksheets.Count)
End With
ActiveSheet.Name = Target
End Sub



Ia

--
ih
-----------------------------------------------------------------------
ihr's Profile: http://www.excelforum.com/member.php...fo&userid=1894
View this thread: http://www.excelforum.com/showthread.php?threadid=50894