I have this written and it does what I want, very well, but it is kinda slow. Is there any way to make this faster?
Thanks for any help you can offer.
-James
Sub Quote_Test11()
'
' Quote_Test1 Macro
'
Customer = InputBox("Who are you sending this quote to?")
Sheets("Sheet1").Select
Range("a1").Select
ActiveCell = ("Dear " & Customer & ",")
quotenumber = InputBox("Please enter the quote you want (1,2,3,4)")
'Room 1
Sheets("Sheet1").Select
Range("A10").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$12") 'Room Name
Range("b11").Select
ActiveCell = ("=Quote" & quotenumber & "!$G$12") 'Material
Range("b12").Select
ActiveCell = ("=Quote" & quotenumber & "!$H$12") 'Door Profile
Range("b13").Select
ActiveCell = ("=Quote" & quotenumber & "!$I$12") 'Drawer Profile
Range("b14").Select
ActiveCell = ("=Quote" & quotenumber & "!$J$12") 'Drawer Roller
Range("b15").Select
ActiveCell = ("=Quote" & quotenumber & "!$K$12") 'Drawer Box Material
Range("b16").Select
ActiveCell = ("=Quote" & quotenumber & "!$L$12") 'Drawer Roller
Range("b17").Select
ActiveCell = ("=Quote" & quotenumber & "!$M$12") 'Drawer/Door Handle
'Room 2
Sheets("Sheet1").Select
Range("A19").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$13") 'Room Name
Range("B20").Select
ActiveCell = ("=Quote" & quotenumber & "!$G$13") 'Material
Range("b21").Select
ActiveCell = ("=Quote" & quotenumber & "!$H$13") 'Door Profile
Range("b22").Select
ActiveCell = ("=Quote" & quotenumber & "!$I$13") 'Drawer Profile
Range("b23").Select
ActiveCell = ("=Quote" & quotenumber & "!$J$13") 'Drawer Roller
Range("b24").Select
ActiveCell = ("=Quote" & quotenumber & "!$K$13") 'Drawer Box Material
Range("b25").Select
ActiveCell = ("=Quote" & quotenumber & "!$L$13") 'Drawer Roller
Range("b26").Select
ActiveCell = ("=Quote" & quotenumber & "!$M$13") 'Drawer/Door Handle
'Room 3
Sheets("Sheet1").Select
Range("A28").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$14") 'Room Name
Range("b29").Select
ActiveCell = ("=Quote" & quotenumber & "!$g$14") 'Material
Range("b30").Select
ActiveCell = ("=Quote" & quotenumber & "!$h$14") 'Door Profile
Range("b31").Select
ActiveCell = ("=Quote" & quotenumber & "!$i$14") 'Drawer Profile
Range("b32").Select
ActiveCell = ("=Quote" & quotenumber & "!$j$14") 'Drawer Roller
Range("b33").Select
ActiveCell = ("=Quote" & quotenumber & "!$k$14") 'Drawer Box Material
Range("b34").Select
ActiveCell = ("=Quote" & quotenumber & "!$l$14") 'Drawer Roller
Range("b35").Select
ActiveCell = ("=Quote" & quotenumber & "!$m$14") 'Drawer/Door Handle
'Room 4
Sheets("Sheet1").Select
Range("A37").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$15") 'Room Name
Range("B38").Select
ActiveCell = ("=Quote" & quotenumber & "!$g$15") 'Material
Range("b39").Select
ActiveCell = ("=Quote" & quotenumber & "!$h$15") 'Door Profile
Range("b40").Select
ActiveCell = ("=Quote" & quotenumber & "!$i$15") 'Drawer Profile
Range("b41").Select
ActiveCell = ("=Quote" & quotenumber & "!$j$15") 'Drawer Roller
Range("b42").Select
ActiveCell = ("=Quote" & quotenumber & "!$k$15") 'Drawer Box Material
Range("b43").Select
ActiveCell = ("=Quote" & quotenumber & "!$l$15") 'Drawer Roller
Range("b44").Select
ActiveCell = ("=Quote" & quotenumber & "!$m$15") 'Drawer/Door Handle
'Room 5
Sheets("Sheet1").Select
Range("A46").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$16") 'Room Name
Range("B47").Select
ActiveCell = ("=Quote" & quotenumber & "!$g$16") 'Material
Range("b48").Select
ActiveCell = ("=Quote" & quotenumber & "!$h$16") 'Door Profile
Range("b49").Select
ActiveCell = ("=Quote" & quotenumber & "!$i$16") 'Drawer Profile
Range("b50").Select
ActiveCell = ("=Quote" & quotenumber & "!$j$16") 'Drawer Roller
Range("b51").Select
ActiveCell = ("=Quote" & quotenumber & "!$k$16") 'Drawer Box Material
Range("b52").Select
ActiveCell = ("=Quote" & quotenumber & "!$l$16") 'Drawer Roller
Range("b53").Select
ActiveCell = ("=Quote" & quotenumber & "!$m$16") 'Drawer/Door Handle
'Room 6
Sheets("Sheet1").Select
Range("A55").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$17") 'Room Name
Range("B56").Select
ActiveCell = ("=Quote" & quotenumber & "!$g$17") 'Material
Range("b57").Select
ActiveCell = ("=Quote" & quotenumber & "!$h$17") 'Door Profile
Range("b58").Select
ActiveCell = ("=Quote" & quotenumber & "!$i$17") 'Drawer Profile
Range("b59").Select
ActiveCell = ("=Quote" & quotenumber & "!$j$17") 'Drawer Roller
Range("b60").Select
ActiveCell = ("=Quote" & quotenumber & "!$k$17") 'Drawer Box Material
Range("b61").Select
ActiveCell = ("=Quote" & quotenumber & "!$l$17") 'Drawer Roller
Range("b62").Select
ActiveCell = ("=Quote" & quotenumber & "!$m$17") 'Drawer/Door Handle
'Room 7
Sheets("Sheet1").Select
Range("A64").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$18") 'Room Name
Range("b65").Select
ActiveCell = ("=Quote" & quotenumber & "!$G$18") 'Material
Range("b66").Select
ActiveCell = ("=Quote" & quotenumber & "!$H$18") 'Door Profile
Range("b67").Select
ActiveCell = ("=Quote" & quotenumber & "!$I$18") 'Drawer Profile
Range("b68").Select
ActiveCell = ("=Quote" & quotenumber & "!$J$18") 'Drawer Roller
Range("b69").Select
ActiveCell = ("=Quote" & quotenumber & "!$K$18") 'Drawer Box Material
Range("b70").Select
ActiveCell = ("=Quote" & quotenumber & "!$L$18") 'Drawer Roller
Range("b71").Select
ActiveCell = ("=Quote" & quotenumber & "!$M$18") 'Drawer/Door Handle
'Room 8
Sheets("Sheet1").Select
Range("A73").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$19") 'Room Name
Range("B74").Select
ActiveCell = ("=Quote" & quotenumber & "!$G$19") 'Material
Range("b75").Select
ActiveCell = ("=Quote" & quotenumber & "!$H$19") 'Door Profile
Range("b76").Select
ActiveCell = ("=Quote" & quotenumber & "!$I$19") 'Drawer Profile
Range("b77").Select
ActiveCell = ("=Quote" & quotenumber & "!$J$19") 'Drawer Roller
Range("b78").Select
ActiveCell = ("=Quote" & quotenumber & "!$K$19") 'Drawer Box Material
Range("b79").Select
ActiveCell = ("=Quote" & quotenumber & "!$L$19") 'Drawer Roller
Range("b80").Select
ActiveCell = ("=Quote" & quotenumber & "!$M$19") 'Drawer/Door Handle
'Room 9
Sheets("Sheet1").Select
Range("A82").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$20") 'Room Name
Range("b83").Select
ActiveCell = ("=Quote" & quotenumber & "!$g$20") 'Material
Range("b84").Select
ActiveCell = ("=Quote" & quotenumber & "!$h$20") 'Door Profile
Range("b85").Select
ActiveCell = ("=Quote" & quotenumber & "!$i$20") 'Drawer Profile
Range("b86").Select
ActiveCell = ("=Quote" & quotenumber & "!$j$20") 'Drawer Roller
Range("b87").Select
ActiveCell = ("=Quote" & quotenumber & "!$k$20") 'Drawer Box Material
Range("b88").Select
ActiveCell = ("=Quote" & quotenumber & "!$l$20") 'Drawer Roller
Range("b89").Select
ActiveCell = ("=Quote" & quotenumber & "!$m$20") 'Drawer/Door Handle
'Room 10
Sheets("Sheet1").Select
Range("A91").Select
ActiveCell = ("=Quote" & quotenumber & "!$B$21") 'Room Name
Range("B92").Select
ActiveCell = ("=Quote" & quotenumber & "!$g$21") 'Material
Range("b93").Select
ActiveCell = ("=Quote" & quotenumber & "!$h$21") 'Door Profile
Range("b94").Select
ActiveCell = ("=Quote" & quotenumber & "!$i$21") 'Drawer Profile
Range("b95").Select
ActiveCell = ("=Quote" & quotenumber & "!$j$21") 'Drawer Roller
Range("b96").Select
ActiveCell = ("=Quote" & quotenumber & "!$k$21") 'Drawer Box Material
Range("b97").Select
ActiveCell = ("=Quote" & quotenumber & "!$l$21") 'Drawer Roller
Range("b98").Select
ActiveCell = ("=Quote" & quotenumber & "!$m$21") 'Drawer/Door Handle
Range("E100").Select
ActiveCell = ("=Quote" & quotenumber & "!$O$41") 'Total Price
For Each C In Range("B11:B17").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a10").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B20:B26").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a19").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B29:B35").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a28").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B38:B44").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a37").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B47:B53").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a46").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B56:B62").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a55").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B65:B71").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a64").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B74:B80").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a73").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B83:B89").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a82").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("B92:B98").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
For Each C In Range("a91").Cells
If C.Value = 0 Then C.EntireRow.Hidden = True
Next
End Sub
Bookmarks