How to pass a variable from one module to another

[smit.etha]

Hello, I have a repetitive process that I'd like to try to simplify coding wise. The basics is to take a string from inside module A and send it to Module B and have procedures executed. Example Below:

Private Sub Show_Inputs_Click()

If Show_Inputs.Value = True Then

Dim Last_Row As Integer
Dim Range_Unlock As String

'Find the last non-blank cell in column K
Last_Row = Cells(Rows.Count, 11).End(xlUp).Row

If Last_Row = 4 Then
Range_Unlock = "C4,E4:J4"
Range(Range_Unlock).Select
Selection.Locked = False
Range("$AA$1").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("$C$4").Select
End If

If Last_Row = 5 Then
Range_Unlock = "C4,E4:J4" & ",D5:J5"
Range(Range_Unlock).Select
Selection.Locked = False
Range("$AA$1").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("$C$4").Select
End If

If Last_Row > 5 Then
Range_Unlock = "C4,E4:J" & Last_Row & ",D5:J" & Last_Row
Range(Range_Unlock).Select
Selection.Locked = False
Range("$AA$1").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("$C$4").Select
End If

End Sub


I'd like to change it to something like:

Private Sub Show_Inputs_Click()

If Show_Inputs.Value = True Then

Dim Last_Row As Integer
Dim Range_Unlock As String

'Find the last non-blank cell in column K
Last_Row = Cells(Rows.Count, 11).End(xlUp).Row

If Last_Row = 4 Then
Range_Unlock = "C4,E4:J4"
Call RangeChange (Range_Unlock)
End If

If Last_Row = 5 Then
Range_Unlock = "C4,E4:J4" & ",D5:J5"
Call RangeChange (Range_Unlock)
End If

If Last_Row > 5 Then
Range_Unlock = "C4,E4:J" & Last_Row & ",D5:J" & Last_Row
Call RangeChange (Range_Unlock)
End If

End Sub




Sub RangeChange (Range_Unlock)
Range(Range_Unlock).Select
Selection.Locked = False
Range("$AA$1").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("$C$4").Select
End Sub


How do I pass the Range_Unlock variable from the Sub Show_Inputs_Click to Sub RangeChange?

Thanks!

[Kyle123]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)