Hi
I have this code (Below) and I want to cut and paste Shape "C" to Sheet 2.
What I need to change in the code so that Shape "C" will work in Sheet 2?
Option Explicit
Private Sub AdjustTank(ByVal CurLevel As Double, ByVal TankID As String, _
Optional MaxLevel As Double = 400000)
Dim Tank...