Print sheet on cell value

[sujittalukde]

I have a WB which have large sheets Also new sheets can be added by another macro and as such number of sheets could go more. So printing a particular sheet create problem.

So I need a macro which will print the sheet based on value of Cell A1 of Sheet named "Master"

for eg', say cell A1 of "Master" sheet contains ABC, then the code should print sheet named "ABC", and so on.

 

[VoG]

Try

Sub PrintMaster()
Sheets(Sheets("Master").Range("A1").Value).PrintOut
End Sub

 

[sujittalukde]

Thanks VOGII.
It is exactly working as per requirement.
CAn one more thing be added - THat the code will clear the background color of the sheet to be printed before print and restore the same ie clearance of background color will be temporary for saving the ink.

 

[VoG]

Try this

Sub PrintMaster()
With Sheets(Sheets("Master").Range("A1").Value)
    .PageSetup.Draft = True
    .PageSetup.BlackAndWhite = True
    .PrintOut
End With
End Sub

 

[sujittalukde]

Thanks its working