Save data on sperate woksheet

[jamienwood]

ive written this macro to save a quote on a woksheet and name it after the reference number, i want the macro to add a hyperlink to the customer database next to the reference number and link it to the file it just created.Sub Quote_Save()
' Macro recorded 3/8/2002 by Jamie Wood
Range("B6:I26").Select
Selection.Copy
Workbooks.Add
Range("B6").Select
ActiveSheet.Paste
Columns("B:B").ColumnWidth = 8.57
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 8.29
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("F:F").ColumnWidth = 31.43
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").ColumnWidth = 12.43
Rows("20:20").RowHeight = 15
Rows("20:20").RowHeight = 15.75
Rows("24:24").RowHeight = 19.5
Range("C2:F2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
ActiveCell.FormulaR1C1 = "Customer Quote"
Range("C3").Select
ActiveWindow.DisplayGridlines = False
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Quote"
Range("B6:I26").Select
Selection.Interior.ColorIndex = xlNone
Range("G26:I26").Select
Selection.Font.ColorIndex = 2
ThisFile2002 = Range("B7").Value
ActiveWorkbook.SaveAs Filename:=ThisFile2002
ActiveWorkbook.Close
Application.Run "Quote_Print"
End Sub

[Cosmos75]

Try looking at this post and changing it to meet your needs. Although, you'll need to know some VBA (or is it VB?). I'm a newbie to this...

http://www.mrexcel.com/board/viewtop...c=4725&forum=2

[jamienwood]

On 2002-04-15 13:02, Cosmos75 wrote:
Try looking at this post and changing it to meet your needs. Although, you'll need to know some VBA (or is it VB?). I'm a newbie to this...

http://www.mrexcel.com/board/viewtop...c=4725&forum=2

VB, VBA, VBE, All the same,
Cheers i'll try that, that script is a bit messy but it works for me it just means that once a file is saved you have to find the customers reference number then go looking for the file it'd be much easier if the link was there, but ill try