Help with sheet naming in a macro

[courtlandre]

I use the following macro to look at a row, take info from that row, switch sheets, enter the info, copy something, switch back to the original sheet and enter the info. It does this for every row on the sheet.

Sub GetSS()
Application.ScreenUpdating = False
    BeginRow = 9
    Endrow = 80
    ChkCol = 3
    GrabCol = 2
    PutCol = 12
    
For RowCnt = Endrow To BeginRow Step -1
        If Cells(RowCnt, ChkCol).Value = "*" Then
            Cells(RowCnt, GrabCol).Copy
                Sheets("Dashboard").Select
                Cells(7, 3).Select
                ActiveSheet.Paste
                Cells(24, 5).Copy
                Sheets("CUT").Select
                Cells(RowCnt, PutCol).Select
                 Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        End If
        
        
    Next RowCnt

End Sub

I want to be able to use this macro for all sheets in the workbook. "Dashboard" is used by all sheets. but how do I get "CUT" to be dynamic and have the macro figure out which sheet it started with?

In other words, I need a macro that when ran, determines which sheet it was ran from and set that as a value that can be used.

Thanks for any help!

 

[zzjasonzz]

Sub GetSS()
Application.ScreenUpdating = False
dim actsht as worksheet
set actsht = activesheet
    BeginRow = 9
    Endrow = 80
    ChkCol = 3
    GrabCol = 2
    PutCol = 12
    
For RowCnt = Endrow To BeginRow Step -1
        If Cells(RowCnt, ChkCol).Value = "*" Then
            Cells(RowCnt, GrabCol).Copy
                Sheets("Dashboard").Select
                Cells(7, 3).Select
                ActiveSheet.Paste
                Cells(24, 5).Copy
                actsht.Cells(RowCnt, PutCol).PasteSpecial Paste:=xlPasteValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        End If
        
        
    Next RowCnt

End Sub

 

[courtlandre]

Great! I will implement this tomorrow!

 

[courtlandre]

Sub GetSS()
Application.ScreenUpdating = False
dim actsht as worksheet
set actsht = activesheet
    BeginRow = 9
    Endrow = 80
    ChkCol = 3
    GrabCol = 2
    PutCol = 12
    
For RowCnt = Endrow To BeginRow Step -1
        If Cells(RowCnt, ChkCol).Value = "*" Then
            Cells(RowCnt, GrabCol).Copy
                Sheets("Dashboard").Select
                Cells(7, 3).Select
                ActiveSheet.Paste
                Cells(24, 5).Copy
                ***actsht.select**
                ***Cells(RowCnt, PutCol).PasteSpecial Paste:=xlPasteValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        End If
        
        
    Next RowCnt

End Sub

Edit: Got it working. Made the changes noted above.

Doesn't work. It seems that actsht is not being set correctly. The macro runs and copies the first item, then switches to the other page, pastes, copies and then never switches back to the original sheet. I dont know enough about setting variables to know how to fix it.