multiplies a range of values by (A1) in multiple sheets

[1heng]

I'm recording a macro which uses the Paste Special function.
The macro copies one value(A1) from a worksheet and by using the paste special function multiplies a range of values by (A1). However, when playing back the macro it carries out the same function on that one particular worksheet. How do i get it to navigate to the next worksheet?

[VBA Noob]

Please read forum rules below and post to the correct group next time.

Try the below. Change range to your range

Sub Macro2()
Dim Wsht As Worksheet
Dim Rng As Range
Set Rng = Sheets("Sheet1").Range("A1")
For Each Wsht In Worksheets
Rng.Copy
With Wsht
    
     .Range("A2:A7").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End With
Next Wsht
Application.CutCopyMode = False
End Sub

VBA Noob